Bulletin des Clubs Microordinateurs Sharp 











SOMMAIRE 

N°6 


Nouveautés 4 

Résultats de notre enquête club ... 5 

PC 1500 

Editorial . 6 

Un exploit du PC 1 500 6 

Traitement d'erreurs .......... 7 

Les macro instructions 10 

Le petit train 12 

Basic 1501.. 14 

Créer de nouveaux mots clés .... 16 
Logithèque 17 


pc nii-nsi 


Editorial 18 

Temps de pose pour photographier 

la lune 18 

Accès mémoire sans Sésame 21 

Logithèque 22 

Programme GESCCP 30 

MEM-MEV sur PC 1251 33 

La zone réserve 34 

La ligne Basic 35 

L'afficheur 36 


Actualité 

Le Club et les Expositions 24 

Un Sharpentier au Japon 25 

Clubs régionaux 26 

Erratum du numéro 5 27 

NZ 80 B 

Logo haute résolution 37 

Un composeur téléphonique .... 39 
Logithèque 43 


DEVENEZ SHARPENTIER 48 


Editions Adepte 24 rue Marc Séguin 750 18 PARIS Té/ : 240.69.00 — Directeur de la publication : Jean-Louis Karl — 

REDACTION : Rédacteur en Chef : Luc Bure/ler — Rédacteurs : E. Devise - C. Camu — Ont participé à ce numéro : P. Abrivard - 
J.L. Boulanger - S. Charcmut - A. Dubois - H. G. Fournier - P. Gac - I.S. - X. Lebègue - J. Néron - P. Piquer eau — Secrétaire de rédaction : 
Marie-Ange Noguer — Publicité : Miche! Morise Té! : 239.37.47 Imprimé en Belgique. 



QUOI DE NEUF? 


Permettez-moi d’abord, amis du CLCJB Sharp de vous saluer. Appelé à remplacer provisoirement M. Monternot 
qui occupe désormais de nouvelles fonctions au sein de notre société, j’essaierai avec votre aide et les 
«permanents» du CLÜB de fournir un Bulletin encore plus vivant et dans un souci constant d’équilibre 
entre les «branchés» et les néophytes (problèmes ô combien complexe). 

Vous trouverez bien sûr les traditionnels programmes pour PC 1211, PC 1500 et série MZ, un 
micro-article sur «la pocket la plus froide de l’année», les nouveaux produits en avant première (les 
Sharpentiers doivent être dans la mesure du possible les mieux informés) mais également une 
rubrique «Affaire CLCJB» plus étoffée ainsi que les résultats de l’enquête parue dans le n° 4. 

Ces résultats nous conduisent dans ce numéro à approfondir un des points qui a été soulevé : «la 
régionalisation du CLUB». Nous nous adressons dans ce bulletin à nos utilisateurs mais également à 
nos distributeurs. 

Alors, je terminerai cet article en parodiant le premier éditorial de D. Monternot : 

«Ecrivez! Suggérez! Critiquez! Questionnez! Répondez! Envoyez!» 

Nous en tiendrons compte et nos pages vous restent plus que jamais ouvertes. 

E. DEVISE 



Le CE 161 


Longtemps attendu, le voilà enfin 
ce fameux module de 16Ko. Ce 
module mémoire se présente sous 
la même forme que le CE 159. La 
mémoire est conservée grâce à 
une pile lorsque le module est 
hors du PC 1 500. 
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Le pocket tant attendu... 

Enfin un pocket complet au niveau 
scientifique et statistique. Le PC 
1401 est doté d’un BASIC similaire 
à celui du PC 1251 et possède des 
fonctions scientifiques (Voir ci- 
après) utilisables en BASIC ou en 
mode calculatrice. 


Les fonctions 

Spécifications du langage BASIC 

Commandes : RÜN, NEW, LLIST, 
PASS, LIST, CONT, TR ON, TR 
OFF, MEM. 

Instructions : INPüT, PR1NT, 

LPRINT, PACJSE, ÜSING, WAIT, IF ... 
THEN, STOP, GOTO, ON ... GOTO, 
GOSÜB, ON ... GOSCIB, RETÜRN. 
FOR ... TO ... STEP, N EXT, END, 
DIM, LET, REM, DATA, READ, 
RESTORE, BEEP, AREAD, CLEAR, 
RANDOM, DEGREE, RADIAN, 
GRAD, PEEK, POKE, CALL. 

Opérateurs : +, -, *, /, (, ), >, <, 
> = , < = , X, =, A, AND, OR, 
NOT, &. 

Fonctions : SIN, COS, TAN, ASN, 
ACS, ATN, LN, LOG, EXP, DEG, 
DMS, RND, SGN, ABS, INT, PI (tt), 
AHS, AHC, AHT, CÜR, FAC, REC, 
SQÜ, HSN, HCN, HTN, POL, RCP, 
ROT, TEN, LEFT$, RIGHT#, 
MID#, ASC, VAL, LEN, CHRjÿ, 
4 STR#, SQR (y/). 


NOUVEAUTES 


Des nouveaux produits. 



Variables : A - Z, A# - Z$, tableaux 
à deux dimensions. 

Commandes de cassette : CSAVE, 
CLOAD, CLOAD?, INPÜT=, 
PRINT=. 

Autres : INKEYS, „ ;, :, ”. 


Le PC 1500A 

Disponible en janvier 84. 


Tiens, un nouveau PC 1500. Nous 
en avions un peu parlé dans le 
dernier numéro. Il existe 4 ROM 
BASIC différentes, la dernière 
équipant les 1500 les plus récen- 
tes (depuis septembre 1982). Ce 
PC 1500 est équipé de cette ROM, 
donc du côté BASIC, pas de chan- 
gement. Sa nouveauté : une cou- 
leur de carrosserie plus sombre et 
5936 octets utilisateur en version 
de base. 

Ce qui signifie qu’avec un module 
CE 161, par exemple, vous vous 
retrouvez avec 22330 octets utili- 
sateurs au lieu de 18234 (ou 
14138 octets avec un CE 155 au 
lieu de 10042). 

Tous les périphériques et exten- 
sions du PC 1500 fonctionnent 
avec le PC 1500A. 
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Le PC 5000 

Attention, malgré son nom, ce n’est 
plus un POCKET COMPUTER, 
mais un PORTABLE COMPUTER 
(nuance!). C’est un outil profes- 
sionnel : CPU 16 bits 8088. Il pos- 
sède, tenez-vous bien une ROM de 
192K octets, une RAM de 128K 
octets (pouvant être étendue à 
256Ko) ainsi qu’une mémoire à 
bulle de 128 Ko... 

Il possède un écran à cristaux li- 
quides de 8 lignes de 80 caractè- 


res (80 x 640 points), un clavier 
très pratique et une imprimante 
thermique ou à ruban (elle fait les 
deux) de format A4 ou B5. 

Une fois que l’on vous aura dit que 
ce système utilise le MS DOS, que 
le PC 5000 possède de base une 
sortie cassette, une sortie dis- 
quette et une sortie RS 232C, vous 
saurez pratiquement tout de cette 
machine. 



Le PC 1245 

C’est un PC 1251 avec moins de mé- 
moire (1486 octets au lieu de 3486), 
un afficheur plus petit (16 carac- 
tères au lieu de 24) et un mode 
RESERVE qui n’existe plus mais 
qui a été remplacé par fonctions 
BASIC pré-proqrammées. 
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Le MZ 700 

Enfin un ordinateur familial SHARP. 
Esthétique, irréprochable dans une 
unité monobloc, il comprend un 
clavier standard agréable, un ma- 
gnétophone à cassette et une impri- 
mante table traçante 4 couleurs 
(double de la largeur de celle de la 
PC 1500). Les jeux pour cette ma- 
chine sont nombreux et très at- 
trayants. Cet ordinateur se 
connecte sur votre téléviseur 
(prise Péritel) et l’on peut lui ad- 
joindre des paddles. 1 
Son BASIC est très puissant et 
compatible MZ 80K et MZ 80/V H 




ne fait aucun doute que ce produit 
prendra une grande place dans ce 
magazine. 


Le MZ 3541 

Le MZ 3541 est aussi un outil pro- 
fessionnel, équipé de deux Z80A. Il 
est rapide et très performant. Il 
peut être équipé de 2 monitors, un 
monochrome et un couleur (par 


Résultats de l’enquête : 
Les Sharpentiers et 
leur club 


sur 66 coupons-réponses reçus 

LE SHARPENTIER 

Nom : SHARPENTIER 
Prénom : Réponse 
Adresse : 151-153, av. Jean-Jaurès 
93300 Auberuilliers 
Profession : Club 
Age : 18 mois 

Combien possédez-vous de maté- 
riels SHARP et lesquels : 
Beaucoup (tous) 

LE BULLETIN 

— Le bulletin vous satisfait-il 
dans sa nouvelle présentation? : 
100 % oui mais il est trop serré, 
manque de photos 



exemple). 11 possède une mémoire 
vive de 128K octets (pouvant être 
étendue à 256Ko) et est éauipé de 
2 drives. 

A un matériel professionnel, un 
système d’exploitation profession- 
nel : EOS. Ce système d’exploita- 
tion est 100 % compatible CP/M et 
possède d’innombrables avanta- 
ges supplémentaires : éditeur 

pleine page, système conversa- 
tionnel de menu, commande gra- 
phique haute résolution (utilisable 
directement ou dans un langage 
comme le COBOL!!!). (Jn article 
sur cette opérât ing système «ex- 
traordinaire» vous en dira plus 
dans notre prochain numéro. 


— Quels sont les rubriques qui 
vous intéressent le plus? : 

40 % uniquement ce qui 

concerne nos matériels 
60 % toutes les rubriques, mais 
surtout les astuces 

— Est-il trop technique? Pas assez 
technique? : 

75 % suffisamment technique 
10 % trop technique 
5 % pas assez technique 

— Désirez-vous voir développer 
une rubrique Produits SHARP plus 
importante (pas spécialement la 
micro)? : 85 % oui 

— Désirez-vous des photos, des 
dessins, des exemples? : 90 % oui 

— Des petites annonces? : 

95 % non 

— Vos suggestions? : Augmentez 
votre nombre de pages, continuez 
avec le papier glacé et passez en 
couleur 

LE CLÜB 

— Le fonctionnement du CLUB 
vous satifait-il? : 80 % oui mais 
Ton déplore du retard dans le 
courrier 


Le MZ 80A SOFTWARE 
PACK 

Eh oui! Enfin, SHARP édite des 
programmes, il s’agit ici de 4 cas- 
settes renfermant de nombreux 
programmes pour le MZ 80A. 

Cassette 1 : éducation 
Avec cette cassette, apprenez la 
géographie, l’arithmétique, et 
jouez au PENDU. 

Cassette 2 : jeux 

SPACE INVADERS à STARTREK, 
BREAKOUT, SPACE FIGHTER au 
JOUR LE PLUS LONG, à POR- 
TRAIT ROBOT, au BOWLING, à 
l’ALUNISSAGE. Soyez un pilote de 
chasse et un surveillant d’examen. 

Cassette 3 : finance familiale 
Tenez votre budget familial, calculez 
des taux d’hypothèques, d’intérêts... 

Cassette 4 : apprentissage du BASIC 
Apprenez à l’aide de leçons pro- 
gressives à vous servir du BASIC. 

Ces programmes sont accompa- 
gnés d'un manuel d’utilisation en 
Français. Amusez-vous bien. 


— Que faire pour l’améliorer? : 
Régionaliser le club pour faire un 
partage des tâches 

— Accepteriez-vous une participa- 
tion financière (cotisation) permet- 
tant de recevoir le bulletin et d’ac- 
quérir des programmes? : 

75 % oui mais dans une certaine 
mesure 

— Pourriez-vous participer active- 
ment à la vie du club? : 45 % oui 

— Etes-vous intéressé par l’idée 
d’une réunion générale des SHAR- 
PENTIER à PARIS? : 60 % oui 

— Pourriez-vous être animateur 
d’un club régional? : 15 % oui 

— Le correspondant du club en 
province? : 20 % oui 

— Ou seriez-vous intéressé par 
l’intégration des Sharpentiers à 
des Clubs organisés du type mi- 
crotel pour nous permettre une 
bonne couverture nationale? : 

55 % non 

Vos suggestions : Continuez... 

Date : 15 Septembre 
Signature : 

LE GRAND SHARPENTIER 5 


I RC 1500 

EDITORIAL 

Et voici notre second bulletin, en habit de gala... Bulletin que dis-je, Magazine, Journal... 

Notre dernier bulletin, qui a eu un certain retard (2 petits mois : il était prêt à temps, mais l’expédition nous a 
posé des problèmes car les cartes d’hadérents étaient classées dans l’ordre alphabétique et les adresses par 
département!!!) vous a apparemment beaucoup plu malgré le fait que quelques bugs et programmes illisibles 
soient survenus. Nous veillerons à ce que cela ne se reproduise plus. 

Nouveau bulletin, nouvelle exposition, nous vous attendons nombreux sur notre stand du S1COB (SICOB 
Boutique - Stand N° 200 Voir page 24 ). 

Dans ce bulletin, vous trouverez de nombreux articles et de nouvelles signatures notamment pour le Mot de 
Sharp. Eh oui! Notre éditorialiste Sharp qui lança le fameux «Mot de Sharp» nous a quitté pour de nouvelles 
fonctions (tant pis pour lui!) alors VIVE notre nouveau SHARPENTIER Sharp, Eric Devise (à vous de lui 
donner le change...). 


Avant de vous laisser lire votre cher magazine, faisons un rapide tour du PC 1500. Vous ne manquez pas 
d’imagination et grâce à celle-ci, voilà que votre PC 1500 aggrandi son pouvoir et ses connaissances. 
Continuez à nous faire part de vos programmes et découvertes. Ainsi, vous posséderez bientôt le plus rapide 
des micro-ordinateurs de poche. 

Sharpentièrement votre. 

Luc BÜRELLER 


PS : N’oubliez pas de lire 
les pages qui ne sont pas 
réservées au PC 1500, elles 
renferment souvent des articles 
qui vous intéressent. 
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TRAITEMENT 

D’ERREURS 

SUR 
PC- 1500 


Après avoir le trimestre dernier étendu notre PC- 1500 
de quelques nouvelles fonctions Basic, nous allons au- 
jourd’hui lui permettre de traiter les erreurs. Lorsque 
vous aurez entré les différents prgm ci-joints, votre 
PC- 1500 vous décrira en clair toute erreur que vous 
ferez. 


c'ewir 
, une 



Ainsi, si vous le désirez, l’insipide 
ERROR 1 qui a troublé plus d’un 
programmeur néophyte se trans- 
formera en un message plus expli- 
cite tel que «Syntaxe incorrecte!». 
Chacune des erreurs du PC- 1500 
pourra ainsi être traitée (dans la 
limite de la place mémoire dispo- 
nible). En effet, vous pourrez, soit 
garder les messages que je vous 
propose, soit faire vos propres 
messages. Vous n’êtes de plus pas 
contraint d’entrer tous les messa- 
ges : le prgm de traitement d’er- 
reurs prévoit qu’une erreur n’existe 
pas dans son fichier et écrira par 
exemple «Erreur 26» s’il ne trouve 
pas le message correspondant. 
Mais après ce descriptif de l’utilisa- 
tion, entrons dans les détails de la 
programmation. 


tout d’abord, tout se fait en ROM, 
et de plus, c’est très occasionnel! 
Néanmoins, il est possible de 
brancher cette routine en RAM (/3 
Pointée par 79DB-C), et de l’appe- 
ler régulièrement. Voici les détails 
du prgm : il est ici à partir de 38C6 
mais il est entièrement relogeable 
grâce au prgm joint. 


La l re partie du prgm a pour but 
de provoquer la prochaine inter- 
ruption, quelques microsecondes. 
Plus tard : voici les détails : 

38C6 : cette instruction interdit 
une nouvelle interruption (il 
ne faut en effet pas que la 
routine d’interruption soit 
interrompue!). 


VQhJOUS 


38D9 : (F00A) = OA = 00001010 : 
le registre F00A est le mas- 
que d’interruption : on per- 
met les interruptions provo- 
quées par le BREAK et le 
port série (celle qu’on uti- 
lise). 

38DE : on met à 0 les bits 2 à 7: 
cet octet est le registre de 
drapeaux d’interruption 
(ex. : si on appuie sur le 
BREAK, et si le bit 1 de 
F00A est à 1 (on autorise le 
break), alors le bit 1 de 
F00B est mis à 1). 

38E3 : on stocke dans la RAM sys- 
tème (&79DB A &79DC) 
l’adresse de la routine utili- 
sateur. Dans l’exemple, 
cette adresse est &38F7 
mais si vous relogez la rou- 
tine, le prgm Basic ci-joint 
calculera la nouvelle 
adresse. 


L’intérêt de cet article ne réside 
pas dans le traitement des erreurs, 
uniquement : ceci n’est qu’une des 
innombrables applications possi- 
bles du traitement des interrup- 
tions. Le lecteur averti sait ce que 
sont les interruptions, mais pour 
les autres, en voici un bref descrip- 
tif . Prenons un exemple : vous 
avez un prgm qui tourne, et vous 
désirez le stopper : vous appuyez 
sur la touche BREAK, et sans que 
vous soyez étonné votre prgm s’ar- 
rête. Tout comme M. Jourdain fai- 
sait de la prose sans le savoir, sans 
le savoir vous avez provoqué une 
interruption du micro-processeur! 
Lorsqu’une telle interruption sur- 
vient, le micro-processeur se bran- 
che en E171 où s’effectue le trai- 
tement de cette interruption. Ce- 
pendant 2 obstacles surviennent : 


38C8 : on charge dans Y la valeur 
F007 : c’est à partir de cette 
/O que sont stockés les para- 
mètres indispensables à 
toute interruption. 

38CC : on charge (F007) avec la 
valeur 0 en 2 e page. 

38D0 : AND# (F008), BF a pour 
effet de mettre le bit 6 de 
F008 à 0 (BF = 
10111111). Cette instruc- 
tion a pour effet de débran- 
cher le bjuzzer. 

38D4 : (F009) = 17. Les bits 5 à 7 
sont inutilisés pour les in- 
terruptions, les bits 0 à 2 
définissent le temps entre 2 
interruptions (111 : temps 
maxi.). 


38ED : (&79DA) = &55 : ceci aura 
pour effet d’activer la rou- 
tine utilisateur d’interrup- 
tion. 

38F2 : on envoie une impulsion 
sur le port série : la pro- 
chaine interruption est ainsi 
programmée. 

Routine utilisateur 

38F7 : interdit toute interruption 
pendant la routine d’inter- 
ruption. 

38F9 : met à 0 le masque d’inter- 
ruption/: il est donc impos- 
sible d’y avoir des interrup- 
tions pendant la routine. 7 



PC 1500 


38FE : met à 0 le registre de flags, 
mais conserve le flag 
BREAK (traitement ulté- 
rieur). 

3903 : si le bit 1 de FOOB était à 0 
(il n’y a pas eu de break), 
alors on saute en 390F. 

3905 : il y a eu un break : on n’uti- 
lise pas la routine utilisa- 
teur. 

3907 : on stocke dans Y l’adresse 
C4C6 : c’est ici que se fait le 
traitement du BREAK en 
ROM. 

390B : on PUSHE cette adresse 
pour que se fasse le bran- 
chement au prochain RET. 

390D : on retourne en ROM après 
avoir exécuté le prgm en 
38C6 qui prépare la pro- 
chaine interruption. 

390F : le prgm se branche ici lors- 
qu’il n’y a pas eu de 
BREAK: on teste le bit 7 de 
(7880) : s’il est à 1, cela si- 
gnifie qu’il y a eu une er- 
reur. 

3913 : si le bit 7 de 7880 est à 0, 
alors l’indicateur Z est mis à 
1, et on retourne en ROM 
(cf. 390D). 

3915:1e prgm se branche ici 
quand il y a une erreur. 
L’appel de la sous-routine 
en ECAE est l’équivalent 
d’un HOME : le curseur est 
mis au début de l’écran, 
(pour que notre message 
d’erreur soit cadré à gau- 
che). 

3918: stocke dans X l’adresse du 
fichier des messages d’er- 
reur : le prgm Basic se 
charge de la calculer si vous 
relogez le prgm. 

391 C: charge dans A le numéro 
de l’erreur qui vient de sur- 
venir : on la sauve dans CJh. 

3920 à 3929 : routine de recher- 
che de l’erreur : le 
format est 

I n IL 1 | | J / 

numéro de longueur duQrisg en ASCII / 
l’erreur message de longueur I 

, I. - - . . : i 

Pour définir la fin du fichier, on 
8 met 0 comme numéro d’erreur. 


3920 : Charge dans A le numéro 

d’erreur cherché. 

3921 : compare de numéro avec le 

numéro de l’erreur pointée 
dans le fichier. 

3922 : on saute en 3955 si on a 

trouvé le bon message. 

3924 : on charge l’octet derrière le 
numéro d’erreur : c’est la 
longueur du message : on 
additionne cette longueur 
au pointeur pour se trouver 
sur le numéro de la pro- 
chaine erreur. 

3927 : on charge le prochain nu- 

méro. 

3928 : on saute en 3920 si ce nu- 

méro n’est pas nul : cela si- 
gnifie que le fichier n’est 
pas terminé. 

392A : l’erreur qui vient de survenir 
n’est pas dans le fichier : on 
écrit “Erreur ..’’ : on charge 
ds Cl 3946 qui est l’adresse 
du message «Erreur» ( va- 
riable). 

392E : on charge dans A la lon- 
gueur du message (6 let- 
tres). 

3930 : on écrit le message pointé 
par (J de longueur A. 

3933 : retour (cf. 390D). 

3935 : le prgm arrive ici lorsque le 

message d’erreur est 
trouvé : on charge dans A la 
longueur du message. On 
utilise un ILD pour que X 
pointe le message lui- 
même. 

3936 : on met cette adresse dans ü 
3938 : cf. 3930. 

393B : on charge dans Cl la fin du 
message (qui comprend un 
“!’’ et des blancs). 

393F: on met dans A une lon- 
gueur de 20 (c’est une sé- 
/curité car les messages 
sont souvent assez longs). 

3941 : cf/ 3930. 

3944 : Retour (cf. 390D). j 

Pour pouvoir' utiliser cette exten- 
sion, il vous faut charger le prgm 


ci-joint. Il vous faudra tout d’abord 
réserver de la mémoire par un 
NEW&nnnn : 

- si vous décidez de garger les 
messages tels que je vous les 
propose, il faire faire NEW 
(DebRAM + 1140). 

- Si vous voulez charger vos pro- 
pres msg, faire NEW (DebRAM + 
128 + 1g des msg). Il vous faudra 
estimer la longueur de vos msg. 
(msg + 2 octets par erreur). 

“DebRAM’’ signifie le 1 er octet li- 
bre du Basic (&38C5 avec un 
CE155, &40C5 avec un 4 Ko...). 

Chargez le programme, tapez 
RCiN : le programme vous de- 
mande l’adresse d’entrée : (ici 
c’est &38C6). Le prgm charge le 
LM, calcule les adresses et de- 
mande “Numéro d’erreur’’ : vous 
devez donner un numéro d’erreur, 
taper ENTER, puis donner le msg 
correspondant. 

Lorsque tous les msg seront tapés, 
donnez 0 comme numéro d’er- 
reur. 

Le 1 er octet libre est pointé par B 
+ 1 . 

Pour réactiver le prgm (après 
extinction), faire CALL (adresse 
d’entrée) -> (celle que vous aviez 
donnée au prgm). 

NB : Ne vous inquiétez pas en 
écoutant votre BEEP : étant 
souvent interrompu, le son 
devient plus grave. 

Comme je l’ai déjà dit, cet article 
ne présente d’intérêt que pour le 
traitement des interruptions. Le 
lecteur assidu pourra facilement 
améliorer l’application proposée 
(meilleur traitement du BREAK, 
rétablissement de l’affichage de la 
ligne de prgm ou s’effectue l’er- 
reur...). 

Les applications sont nom- 
breuses: mon PC- 1500 est déjà 
pourvu d’un REVEIL, d’un pense- 
bête (qui interrompt tout prgm, 
toute activité pour vous rappeler à 
l’ordre.), d/un carrillon, d’un cla- 
vier dirhélforé, et de bien d’autre 
gadgets encore. 

Le CLCJB attend dès lors impa- 
tiemment vos applications. 
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PC 1500 


LES MACRO 
INSTRUCTIONS 


Le micro-processeur du PC 1500 
possède 120 macro instructions, " ' 

dont les codes, toujours pairs vont de 00 
à F0 (Hexa). Une macro instruction correspond à une 
sous-routine en ROM, dont l'adresse est donnée par 
une table située de FF00 à FFFF (Hexa). La sous- 
routine correspondante à la macro de code nn a pour 
adresse :f*)= 256 * PEEK (FFnn) + PEEK (FFnn +1). 



00 et DF (donc un mot sur 1 oc- 
tet) ou alors le code d’une fonc- 
tion (donc un mot sur 2 octets). 
Le 1 er octet du code d’une fonc- 
tion étant supérieur ou égal à DO. 


Selon leurs codes, les macro ins- 
tructions s’appellent de deux ma- 
nières différentes : 

- si &00 nn &BE, on utilise 
l’instruction : CD nn : VMJ (nn) 

- si &CO nn &F0, on utilise 
directement le code de la macro : 
nn : VEJ(nn) 

(VMJ et VEJ sont les mnémoni- 
ques officielles, mais certains utili- 
sent SBR). 

Par exemple, l’appel de la macro 
de code OA se fera par : 

CD OA : VMJ (OA) 
et celui de la macro CD par : 

CD : VEJ (CD) 

Certaines macro instructions sont 
suivies d’un ou plusieurs paramè- 
tres, comme par exemple, la ma- 
cro DO qui doit être suivie de 2 
paramètres : VEJ (DO), cc, +e. 

Quand dans un programme en 
langage machine, le micro- 
processeur tombe sur une macro 
instruction, il y a deux cas possi- 
bles qui dépendent du type de la 
macro-instruction : 

- si la macro n’est pas paramétrable 
La machine va chercher dans la 
table d’adresse de la routine cor- 
respondante à la macro, puis se 
branche dessus par l’équivalent 
d’un CALL. Pour revenir au pro- 
gramme principal, il y a fin de rou- 
tine, l’instruction RTD (codée 
&9A). 

- si la macro est paramétrable 
C’est un peu plus compliqué. La 
machine compile tout d’abord la 


valeur du compteur ordinal P. Le 
compteur a alors pour valeur 
l’adresse de l’octet qui se situe 
juste après le code de la macro 
instruction (donc le premier para- 
mètre). Puis, elle va chercher 
l’adresse de la routine et se bran- 
che dessus par l’intermédiaire 
d’un JÜMP. 

Pour lire les paramètres, on dépile 
l’ancienne valeur du compteur or- 
dinal généralement par POPX, la 
lecture se faisant par LDA, (X) ou 
1LDA, (X). (Le registre A contient 
alors le paramètre). 

Pour revenir au programme princi- 
pal, à la fin de la routine, on res- 
taure l’ancienne valeur du comp- 
teur ordinal, incrémenté du nom- 
bre de paramètres + 1. 

Bon, mais on peut se demander à 
quoi peuvent servir ces macro ins- 
tructions. Je répondrais partielle- 
ment à cette question en détaillant 
les macros qui servent à la lecture 
de paramètres entiers (sur 16 bits) 
et alphanumériques, en prenant 
comme exemple le BASIC 1591. 

En effet, quand on crée de nou- 
veaux mots-clés, il est intéressant 
qu’ils soient paramétrables. Pour 
cela, il faut être capable de lire les 
différents paramètres et c’est là 
que les macros vont nous servir. 

Mais; tout d’abord, deux petits rap- 
pels : 

a) J’appellerai “mot”, un code 
ASCII, si ce code est compris entre 


b) Quand la machine interprète un 
mot-clé (exécute la routine asso- 
ciée à ce mot-clé), le registre Y du 
micro-processeur pointe l’octet si- 
tué juste après ce mot-clé. 

En ce qui concerne la lecture d’ar- 
gument, il y a deux manières de 
procéder : 

I) Créer sa propre syntaxe 

C’est le cas, par exemple, pour la 
fonction SET qui est suivie de 
deux arguments : 

SET N° Ligne, N° Colonne 
ou de la fonction DELETE qui a la 
syntaxe : 

DELETE n, p 
DELETE, p 
DELETE n 

Pour gérer sa propre syntaxe, on 
utilise les macros instructions sui- 
vantes : 

MACRO DE 

Sa syntaxe est : DE, +e : VEJ 
(DE), +e 

Elle évalue un paramètre pointé 
par le registre Y. 

11 ÿ a saut de +e octets, si le para- 
mètre est inexistant ou si il est 
inacceptable. 

MACRO DO 

Sa syntaxe est : DO, c, +e : 
VEJ(DO),c, + e 

Elle change dans le registre Cl un 
paramètre entier sur 16 bits, pré- 
cédemment évalué et incrémente 
Y. 


C’est une condition : 

si C = &00 : argument de 0000 
à FFFF 

si C = &01 : argument de 0001 
à FFFF 

si C = &02 : argument de 0000 
à FEFF 

si C = &04 : argument de 
-8000 à 7 FFF 

si C = &08 : argument de 00 à 
FF 

si C = &10 : argument de 00 à 
19 

Il y a saut de +e octets, si l’argu- 
ment lu ne correspond pas au 
code condition. 

MACRO CO 

Elle charge dans le registre CI le 
mot pointé par le registre Y. 

MACRO C2 

Sa syntaxe est : 

C2,ab, + e VEJ((2),ab, + e (ab 
= 2 octets) 

ou C2,i, + e VEJ((2),i,+e (i - 1 

octet) 

Elle compare le mot pointé par le 
registre Y avec le mot ou argu- 
ment (ab ou i), il y a saut de +e 
octets si les deux mots sont diffé- 
rents. 

MACRO C4 

Sa syntaxe est la même que la ma- 
cro C2, mais au lieu d’y avoir com- 
paraison avec le mot pointé par le 
registre Y, il y a comparaison avec 
celui qui se trouve dans CJ. 



MACRO C6 

Décrémente le registre Y de la lon- 
gueur d’un mot (1 ou 2 octets) 


MACRO C8 

Sa syntaxe est : 
c8,+e : VEJ((C8),+e) 

Elle teste si l’on est en fin de zone 
d’instruction saute de +e octets, 
s’il y reste encore des paramètres 
ou un argument alphanumérique. 

MACRO DC 

Lecture d’une chaîne alphanumé- 
rique. 

Au retour, l’on a dans X l’adresse 
de la chaîne et dans ÜI et l’accu- 
mulateur la longueur de la chaîne. 


Mais voyons tout cela sur un EXEMPLE 

Les instructions SET et RESET du BASIC 1501 ont en commun leur 


routine de lecture de paramètres 
Voilà cette routine : 

3A22 : DE 14 VEJ(DE),+ 14 
3A24 : DOOOl 1 VEJ(DO),00,+ 1 1 
3A27 : 24 LDA,CJ2 
3A28 : AE7B00 LD(7B00),A 
3A2B : C2 2C 0A VEJ(C2),2C, + OA 


3A2E : DE08 VEJ(DE), + 08 

3A30 : D00005 VEJ(DO),00, + 05 

3A33 : 24 LDA,Ü2 

3A34 : AE7B01 LD(7B01),A 

3A37 : RTN 

3A38 : EA VEJ(E4) 


doit lire deux paramètres). 


Evaluation du 1 er paramètre. 
Lecture du 1 er paramètre. 

On charge la valeur de ce 1 er 
paramètre en 7B00. 

On regarde si une virgule 
(code 2C) sépare les deux pa- 
ramètres • 

Evaluation du 2 e paramètre. 
Lecture du 2 e paramètre. 

On charqe le 2 e paramètre en 

7 BOl 

Retour 

Affichage de error 1. 


II) Laisser la machine 
évaluer elle-même 
les paramètres 

Ce n’est possible que si le nou- 
veau mot-clé retourne un paramè- 
tre, par exemple, la fonction ASK. 
Pour cela, il faut mettre les para- 
mètres (entiers ou alpha) entre pa- 
renthèses et les séparer par une 
virgule. 

La machine évalue alors automati- 
quement les paramètres et les 
place dans le tampon de chaîne 
pour les paramètres alpha et dans 
les registres arithmétiques pour 
les paramètres entiers. 

Les paramètres sont automatique- 
ment empilés et le 1 er paramètre 
que l’on lira sera en fait le dernier. 
Pour la lecture, on utilise les ma- 
cros : 

MACRO DO : pour la lecture des 
entiers 

MACRO DC : pour les arguments 
alphanumériques (voir I) 

MACRO 30 : VMJ (30) 

Cette macro va dépiler un argu- 
ment, il faut l’utiliser avant de lire 
l’argument suivant. 

En exemple, voilà la lecture de pa- 
ramètre de l’instruction ASK du 
BASIC 1501. 

Sa syntaxe est ASK (N° ligne, N° 
colonne). 


Pour terminer, voilà en vrac les au- 
tres macro instructions utilisées 
par le BASIC 1501. 

E2 : pour le retour d’une routine 
d’un mot-clé (ou l’équivalent du 
9A,RTM d’un programme LM nor- 
mal). 

E0 : affichage d’une erreur de 
code dans Uh. 

E4 : affichage de ERROR 1 (erreur 
de syntaxe). 

CC : sa syntaxe est : cc nn : 
VEJ((c),n) 

est l’équivalent d’un : 

LDX,(78n) sur 2 octets 
LDA,(78n) sur 1 octet. 

CA : sa syntaxe est : CAn : 
VEJ(CA),n 

est l’équivalent de LD(78n),X sur 2 
octets. 

Voilà, j’espère que ces quelques 
explications sur les macro instruc- 
tions vous permettront de réaliser 
de nouveaux mots-clés paramétra- 
bles. 

Le CLUB attend impatiemment 
vos mots-clés et pour mieux com- 
prendre le mécanisme de tout 
cela, je vous conseille de désas- 
sembler les routines du BASIC 
1501. 

Pascal ABRIVARD. 


39F0 :D0 00 00 VEJ(DO),00, + 00Lecture du 1 er paramètre (N° col.) 

39F3 :AE 7B 01 LD(7B01),A , On le stocke en 7B01. 

39F6 :CD30 VMJ(30) On dépile un paramètre. 

39F8 :D0 00 00 VEJ(D0),00, + 00 Lecture du 1 er paramètre (N° ligne) 

39FB :AE AB 00 LD(AB00),A On le stocke en 7B00. 
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PC 1500 

PETIT TRAIN 



Avec ce programme, je vous propose d’entrer dans le 
monde fabuleux du Far West : vous êtes aux comman- 
des d’un petit train à vapeur et vous devez faire le plus 
grand nombre possible de kilomètres avec au départ 
60 Kg de charbon... 


Dès qu’il faudra en mettre, la ma- 
chine vous l’indiquera. A chaque 
pelletée (équivalent à une pression 
sur la touche SPACE quand appa- 
raît le message “CHARBON”), 
vous ferez au minimum 12 Km. 
Mais attention, le charbon s’épuise 
vite car une pelletée équivaut à 
10 Kg de charbon. Pour pouvoir 
vous approvisionner, un généra- 
teur aléatoire vous fera passer par 
des villages où vous vous arrête- 
rez. La machine vous donnera 
alors le cours du charbon. Evi- 
demment, vous pouvez marchan- 
der autant que vous le voulez mais 
attention! si la machine refuse le 
prix que vous proposez, vous serez 
obligé de repartir sans rien. Il s’agit 
donc de bien marchander pour 
l’avoir au meilleur prix; mieux vous 
marchanderez, plus vous irez loin! 
Contrôlez donc vos dépenses! Une 
précision encore : il se peut que le 
train passe sans s’arrêter dans un 
village. Dans ce cas, un “TÜT- 
TÜT!” apparaîtra à l’afficheur et 
vous gagnerez une pelletée de 
charbon (le jeu continue; vous 
n’avez pas à appuyer sur la touche 
SPACE). 

Avec un peu d’habitude, vous vous 
apercevrez que la machine vous 
demande toujours du charbon si 
vous n’appuyez pas sur la touche 
SPACE mais qu’au bout de 6 de- 
mandes, vous tomberez en panne 
sèche. Utilisez cette remarque 
pour gagner quelques quilomè- 
tres! 

Enfin, vous verrez que le maxi- 
mum de charbon que vous pouvez 
acheter en une seule fois est fixé à 
60 Kg. Si vous l’oubliez et si vous 
dépassez cette limite, la machine 
vous le rappellera et vous devrez 
en prendre moins. 

Bonne chance! Amusez-vous 
bien! 

LE PROGRAMME 

Voyons maintenant comment est 
12 structuré le programme : 


-ligne 9010 : toutes les variables 
sont remises à zéro; As(0) est di- 
mensionné pour la présentation 
(voir plus loin); RANDOM change 
la semence de nombres aléatoi- 
res; on fixe le poids initial de 
charbon (C = 60) et l’argent dis- 
ponible initialement (A = 5000). 
-ligne 9015 & 9020 & 9025 : Pré- 
sentation. 

- ligne 9030 : mise en place des 
informations à l’afficheur (nom- 
bre de Km, quantité de charbon 
disponible, argent disponible). 

- ligne 9040 : les Km augmentent 
(K = K + 1); Y détermine le 
nombre Km après chaque pelle- 
tée (12 au min.). Si Y > 12 (ligne 
9050) alors la machine déter- 
mine aléatoirement si on passe 
ou non par un village : si un nb 
compris entre 1 et 50 dépasse 
47, alors la machine passe par un 
village (ligne 9150) sinon elle ra- 
joute des Km à chaque fois qu’un 
nb aléatoire compris entre 1 et 5 
est ^ 3 (lignes 9055 & 9060). Si 
ce n’est pas le cas, la machine 
demande du charbon (lignes 
9065 à 9082). En appuyant sur 
SPACE, le train continue à rouler 
(cf. ligne 9100) sinon c’est la 
panne sèche (ligne 9085) avec 
affichage du score (ligne 9090). 

- ligne 9100 : partie du pro- 

gramme qui enlève 10 Kg à la 
réserve de charbon après une 
pression sur la touche SPACE. Si 
la réserve de charbon est repré- 
sentée par un nb négatif cela veut 
dire que la réserve est épuisée et 
dans ce cas, le programme se 
termine à la ligne 9085. 

-ligne 9105 : la machine indique 
que la pelletée a été mise et affi- 
che la nouvelle quantité de char- 
bon disponible (ligne 9105, 9106 
et 91 07 L 

-lignes 9110 et 9115 : le pro- 
gramme revient au point de dé- 
part et le train continue à rouler 
(cf. plus haut ligne 9035). 

-ligne 9150 : passage par un vil- 
lage. 


-ligne 9155 : la machine déter- 
mine i elle donne ou non une pel- 
letée e charbon gratuite avec affi- 
chage de “TÜT-TÜT!” (lchance 
sur 50). 

-ligne 9160 & 9165 : détermina- 
tion aléatoire de la “PAUSE CA- 
FE” ou de T “ARRÊT EAU”. 

- ligne 9166 : Z contient le prix du 
charbon qui nous est proposé. 

- ligne 9167 : B repésente la limité 
de marchandage au dessus de la- 
quelle on doit rester. Evidem- 
ment, la machine détermine B 
jusqu’à ce que B ^ Z. 

- ligne 9168 : si la réserve d’argent 
est épuisée, le programme conti- 
nue (le petit train ne s’arrête pas 
dans la ville mais donne quand 
même le cours du charbon). 

-ligne 9170 : cours du charbon. 

- ligne 9171 : rappel de la quantfté 
de charbon restant. 

- ligne 9172 : rappel de ka quantité 
d’argent restant. 

- ligne 9175 : la machine demande 
si on veut marchander. Si on ne 
veut pas, le programme va en li- 
gne 9200. 

-ligne 9185 : on marchande. On 
propos un prix et si celui-ci est 
inférieur à la limite imposée 
(c’est à dire à B) le programme 
repart (voir ligne 9215). 

A-N : le prix maximum du char- 
bon u’on peut rencontrer dans un 
village est 35s. 

- ligne 9195 : le prix qu’on propose 
en marchandage est accepté et 
on peut recommencer le mar- 
chandage si on veut (retour en 
ligne 9170). 

- ligne 9200 : on stoppe le mar- 
chandage. La machine demande 
le poids de charbon que l’on dé- 
sire acheter. 

- ligne 9205 : le poids maximum 
de charbon que l’on peut acheter 
est 60 Kg. Retour en ligne 9200 
si on dépasse cette limite. 

- ligne 9206 : si on prend plus de 
charbon que nous le permet no- 
tre réserve d’argent, la machine 
nous l’indique en précisant la 
quantité de charbon maximum 
que l’on peut acheter avec ce qui 
nous reste. Le programme va 
alors en 9300 pour savoir si on 
est d’accord pour prendre le ma- 
ximum. Si on est pas d’accord, 
on retourne en 9200 pour fixer le 





poids de charbon qu’on désire; 
sinon, la machine fait les calculs 
et le programme continue, 
ligne 9210 : la machine indique 
le prix à payer à la fin de l’opéra- 
tion marchandage. 


ligne 9215 : la machine dévoile la 
limite inférieure de marchan- 
dage. 

ligne 9217 à 9250 : affichage des 
nouvelles données et le train 
continue. 


n 


CURSOR Ai 
PRJNT " 

":K=K+1 
:UAIT 30: 

CURSOR 5: 

PRJNT K 
0;A$=" '•;£$= 

INKEY$ : IF A 9160: 
$=" "THEN 91 

WÊKÊÊÊÊÊÊÊÊÊÊÊtKKÊÊÊ 


9055: 2-RND 5 
9060: IF 2<=3T1 
9040 

9065: NAIT 50: 
1=1 TO 6 
9070: CURSOR 5 
PR INT "CHA 
ON! " : BEEP 
9072: A$=" " : A$= 
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: GOTO 9250 
9235: IF A >=100 
CURSOR 21: 
PR1NT " "+ 
STR$ A: GOTO 



9250 

9240: IF A >=10 

CURSOR 21: 

PR J NT " " + 

STR$ A: GOTO 
9250 

9245: CURSOR 21: 

PRINT " "+ 

STR$ A 

9250: GOTO 9035 

9300: N$=" " : INPUT 
"D/'accor'd?<0 
/N>" JN$: IF N 
$="N" THEN 92 
00 

9310: W=INT W:A=LI* 
2: GOTO 9210 


VARIABLES 

As(0) : variable utilisée pour la pré- 
sentation. 

A : argent disponible. 

C : charbon disponible. 

B : limite inférieure du marchandage 
I : compteur de boucle FOR... N EXT. 
K : nb de Km parcourus. 

V : prix que l’on propose lors du 

marchandage. 

W : poids du charbon qu’on veut 
acheter. 

Y : compteur annexe de Km 

(compte les 12 Km minimum 
après chaque pelletée). 

Z : nombre aléatoire qui sert pour 
diverses déterminations. 

Vs et Ns : réponses à certaines 
questions. 


Jean-Luc LYCZAK 



BASIC 1501 : 

32 nouvelles 
instructions 


ÜONÎOO £ 

w BASiC 1501. 

\!cici 3 1 Nom/eueç 

INgfWCTiOfS, POUlt 

couse fzvez us fko&zammg 

FAITES,. 

CSAS/G M *8ASiC 1501 

6,i sot &4m 


Pour sauvegarder ce programme, faites CSAVE M 
BASIC 1501” ; &3808, &4183. Ce programme ne fonc- 
tionne qu’avec l’extension 
8 Ko CE 155. 


Utilisation : NEW &4184 

Charger le programme et à cha- 
que allumage de la machine, 
POKE &79D1, &20. 

Tous les nouveaux mots clés sont 
assignés en mode RESERVE sauf 
PAGE (DEF L.) 

On a deux pages de mode RESERVE, 
on passe de l’une à l’autre par 
l’instruction PAGE (DEF “L”, 
ENTER). Les mots clés sont répar- 
tis ainsi : 




Syntaxe 
et explication 

• Traitement 
alphanumérique 

- STRING$ (n,a), renvoi n caractères 
de code ASCII a. 




PAGE 1 

1 IF = 

ELSE 

ENDIF+ TEST 

TRUE 

FALSE 


Il STACK 

BEGIN 

ÜNTIL 

RESUME 

CALL&E33F 

& 


III DELETE 

RENÜM ERN 

ERL 

MOVE 

REMOVE 

PAGE 2 

1 DÜMP$ 

MOKE 

HEX$ 

HVAL 

LOW 

H1GH 


Il STRINGS CAPS 

INSTR 

$ 

CALL&E33F 

& 


(Il DISP 

SET 

RESET 

ASK 

INU 

NUMTBL 


La machine ne reconnaît pas les 
mots clés directement tapés au 
14 clavier. 


Exemple : A$ = STRINGS 

(10,65), A$ = “AAAAAAAAAA” 

- CAP$ chaîne, traduit les minus- 


Tïgvooç 


cules de la chaîne en majuscules 

- INSTR (chaîne 1, chaîne 2, n) 
renvoie la position de la chaîne 2 
dans la chaîne 1 à partir de la 
position n. 

Exemple : 

A=INSTR(“PASCAL”,“S”,0) A=3 
A--INSTR(“COGCOCJ”,“0”,3) A=5 
A-INSTR(“BONJOüR”,“B”,2) A=0 

• Affichage 

- DISP n 

à utiliser après un PRINT; permet 
l’affichage de plus de 26 caractè- 
res (décalage automatique de la 
chaîne à l’écran) 
n =■ temporisation (comme WA1T). 


Tout appuie sur SPACE : 

.stoppe le décalage 
. accélère le décalage 
. arrête le défilement 

-SETL,C : affiche un point ligne L 
(0 à 6), colonne C (0 à 155) 

- RESETL,C : éteint le point ligne L, 
colonne C 

-ASK (L,C) : renvoie 1 si le point 
est allumé, 0 sinon 

- INV : inversion Vidéo de tout l’écran 

• Commande système 

-RENUM : rénumérotation des li- 
gnes de 10 en 10 

- DELETE argument : efface les 
lignes : 

si argument = n,p : de n à p inclus 
= n : à partir de n 
= ,p : jusqu’à p 

- PAGE : commutation des 2 pa- 
ges de mode RESERVE 

- MOVE, REMOVE : permet de 
merger des programmes avec 
possibilités de modifier le 1 er pro- 
gramme. 

MOVE 

MERGE “2 e programme” 
REMOVE 

• Langage machine 

-MOKE : multipoke, MOKE add, 
entier, “HEXA”; “ALPHA” 
Exemple : MOKE &3800, 41, &10, 
“011064”; “PASCAL”, 10 

- HEX$ n : revoie une chaîne, n en 
hexadécimal 

- HVAL chaîne : fait l’inverse de HEX$ 

- DCJMP$ argument 

si argument = add, renvoie une 
chaîne représentant la valeur de 
8 octets en hexadécimal, 
si argument = (add,n), même 
chose mais sur n octets. 

• Utilitaires 

- ERN, numéro de la dernière erreur 

- ERL, signe de la dernière erreur 

- LOW, HIGH, renvoient le poids 
faible et le poids fort d’un entier 
de 0000 à FFFF (HEXA) 

• Macro de structure 

- RESUME : ignore une erreur 
Exemple : 

10: ON ERROR GOTO 100 
20: A = 1/0 -H 10 : BEEP 1 
30: END 

1 00 : RESUME (reprend au BEEP 1) 
L’erreur ne doit pas se situer à la 
fin d’une ligne 
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-STACK, BEGIN, ÜNTIL 
STACK remet la pile à zéro, obli- 
gatoire en début de programme, 
sinon I on peut planter la machine. 

BEGIN : instructions '• 

ÜNTIL condition 
revient après le BEGIN tant que 
la condition est fausse ou ¥= 0 
-IF #, ELSE #, ENDIF # 
cd = condition 

s i cd = VRAI « 0 

IF * cd : INSTRUCTIONS : ENDIF # 


si cd = FAUX - 0 
si cd = VRAI * 0 

IF tt cd : INSTRUCTIONS ... : ELSE II : 
INSTRUCTIONS ... : ENDIF * 

t — 1 

si cd z FAUX - 0 

Exemple : 

10 INPÜT "A = ". A 

20 1F # A = S : PAUSE "5 : 

ELSE # : PAUSE “NON” 

30 BEEP 1 : ENDIF # 

Le ENDIF # est obligatoire à la 
fin de chaque test. 

-TEST, TRUE, FALSE : 

TEST capte une valeur logique 
TEST A# = "OUI". Cette valeur 
est aussi stockée lors d'un IF # 
TRUE et FALSE renvoient 1 au 0 
selon la table de vérité : 

TEST au IF = 0 1 

TRUE 0 1 

FALSE 1 0 


3DD0! Oh 
3DE0S OC 
3DF0S 0 1: 
3E0O: OC 
3E 1 0 î Oi 
3E20s 01 
3F.3ÜÏ 0 
3E40S Ô 
3E5Û s 0 
3E6Û : 0 
3E7ÜS O 
3ES0: O 
3E9ÜÏ 0 
3EÔ0î 0 
3EB0 ï 0 
3EC0S G 
3ED0S C 
3EE0! C 
3EF0 : C 
3FÜÜÏ C 
3F 10 s C 
3F 20! C 
3F 30! C 
3F 40! C 
3F 50ï C 
3F GO: C 
3F70! » 
3F80S i 
3F 90s I 
3 F 90: i 
3FB0* 
3FC0* 1 
3F DO* 
3FE0! 
3FF0! 
4000! 
4010! 
4020! 
4030! 
4040! 
4050! 
4060! 
4070! 
4080! 
4090! 
4090! 
40E0! 
4000! 
40DÜ! 
40E0ï 
40F0! 
4100! 
4110! 
4120! 
4130! 
4140! 
4150! 
4160! 
4170! 

. 4180! 
4190! 


DE 08 DO OC 
00 00 00 OC 
00 00 OÜ OC 
00 00 00 OC 
i 00 00 00 Ot 
I 00 00 00 01 

I 00 00 00 01 
i 00 00 00 ÜI 

:i oo oo oo o 

j 00 00 00 01 

3 00 00 00 O 
3 00 00 00 0 
j 00 00 00 0 

3 00 00 00 O 

II 00 00 00 P 

:i oo oo .oo o 

j 00 00 00 G 
3 00 00 00 0 
3 00 00 00 c 

3 00 00 00 C 

0 00 00 00 c 

3 00 00 00 G 

0 00 00 00 c 
0 00 00 00 c 
0 00 00 00 c 
o oo 00 00 q 
0 00 00 00 c 
O 00 00 00 c 

10 00 00 00 I 

10 00 00 00 c 

10 00 00 00 I 
10 00 00 00 I 
10 00 00 00 
10 00 00 00 1 
:iü oo oo oo 
>5 00 00 00 
30 00 00 00 
30 00 00 00 
30 00 00 00 

no oo oo oo 
30 00 00 00 

44 49 53 50 
39 6E B3 53 
-0 86 39 CD 
54 52 FO 61 
B5 53 54 41 
FO 8B 39 90 
23 FO 8C 3B 

45 4E 44 49 
90 3B 21 D4 
53 45 FO 53 
52 4C FO 55 
49 47 48 FO 
D4 48 45 58 
64 3B E8 D4 
49 4E 47 24 
92 3C 64 B3 
FO 90 3C 84 
4D 4F 56 45 
95 3B CO 80 
00 00 00 00 


08 05 24 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 oc 
00 00 00 
00 00 oc 

00 00 oc 
00 00 oc 

00 00 oc 
00 00 oc 
00 00 oc 
po 00 oc 
00 Où oc 
00 00 oc 
00 00 oc 

00 00 CH 

00 00 oc 
00 00 oc 
00 00 oc 
00 00 01 
00 00 01 

1 00 00 o 
I 00 00 o 
J 00 00 o 

1 00 00 0 

:i oo oo o 
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3 00 00 C 
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:i oo oo c 
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:i oo oo c 

3 00 00 C 

3 oo oo »: 

3 00 00 C 
0 D6 44 - 

0 FO 81 : 
3 45 54 f 
D D3 41 ; 

1 39 22 ] 
1 43 4B f 
0 B4 43 ' 
B 06 B5 • 
■9 46 23 

14 54 52 ! 
Ï3 3B 36 

15 3B 5C 
■0 66 3B 
>8 24 FO 
34 48 56 
Ï4 FO 68 

33 49 4E 

34 D6 4E 
*5 FO 94 
30 00 00 
DÛ 00 00 


99 E4 OC 
00 00 OC 
00 00 OC 
00 00 OC 
i 00 00 OC 

I 00 00 oc 

I 00 00 01 
i 00 00 OC 
j 00 00 01 
« 00 00 01 
3 00 00 0 
:i oo oo oi 

3 00 00 0 

3 oo oo o 
3 00 00 0 
3 00 CIO O 
3 00 00 0 

:i oo oo o 

D 00 00 Q 
3 00 00 0 
ü 00 00 G 

d 00 00 q 
0 00 00 c 
0 00 00 c 
Cl 00 00 c 
0 00 00 c 
0 00 00 < 
O 00 00 c 
■0 00 00 c 
0 00 00 c 

10 00 00 I 

10 00 00 c 

JO 00 00 c 
JO 00 00 I 
30 00 00 1 
30 00 00 I 
30 0 0 00 
30 00 00 
30 00 00 
30 00 00 
54 45 FO 
52 45 4E 
9F D5 52 
£0 39 FO 
47 49 4E 
99 D5 55 
FO 62 39 
45 23 FO 
20 B4 54 
52 3B 29 
4E FO 54 
57 FO 65 
4F 4B 45 
DS 44 55 
67 3C 10 
52 45 53 
3C 73 D4 
42 4C FO 
52 45 4B 
00 00 00 
00 00 00 


00 00 OC 
00 00 OC 

00 00 oc 
00 00 oc 

00 00 CH 

00 00 oc 
00 00 01 
00 00 CH 
00 00 0 
00 00 Oi 
00 00 0 
00 00 0 
00 00 0 
00 00 0 
00 00 0 
00 00 0 
00 00 Q 
00 00 0 
00 00 c 
00 00 c 
00 00 c 
00 00 c 

1 00 00 c 
00 00 c 

I oo 00 c 
I 00 00 c 
i OO 00 c 

1 oo 00 c 

3 00 00 I 

3 00 00 c 

3 00 00 C 
3 00 00 I 
3 00 00 I 
3 00 00 I 
3 00 00 
D 00 00 

d oo oo 

D 00 00 
Cl 00 00 
3 00 00 
0 80 38 
E 55 4D 

2 45 53 
0 El 5 49 
E FO 87 
5 4E 54 
,9 E6 D3 
0 8D 3 B 

14 45 53 
;9 D5 46 

54 3B 56 
,5 3B 67 

15 FO 91 

55 4D 50 
lÜ B7 53 
53 55 4B 
34 50 41 
■0 56 3D 
4B 4F m 
30 00 00 
DO 00 00 


00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
i 00 00 
i 00 00 
i 00 00 
» 00 00 
3 00 00 
.1 00 00 
3 00 00 
3 00 00 
3 00 00 
3 00 00 
D 00 00 
3 00 00 
3 00 00 
D 00 00 î 
3 OÜ 00 
3 00 00 
0 00 oo 
0 00 00 

8 C5 B4 
D FO 82 

3 45 54 

9 4E 53 
7 39 84 

4 49 40 
13 49 46 
.B 16 B6 
>3 54 FO 
•6 41 40 
56 B3 45 
>7 B4 48 
n 3B 74 
50 24 FO 
53 54 52 
«3 45 FO 
U 47 45 
5D 56 B4 
55 '45 FO 
30 00 00 
DO 00 00 


DELETE 8 
DISP 90 RENUM 
9n SET 9 RESET 
9 9SK --9 INS 
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4 ? ELSE» t 

END IFS ï TEST 
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CREER 
DE NOUVEAUX 
MOTS-CLES 


Tout a commencé avec la macro instruction de code 
IC : en effet, cette macro recherche le nom dun mot- 


clé, connaissant son code. .... 

Le désassemblage de la routine associe a la macro ins- 
truction IC nous a permis de découvrir pas mal de 


16 choses. 


Tout d’abord, il y a une mise au 
format de l’octet 79D1, dont on ne 
garde que les 6 derniers bits 
(AND(79D1)FC. Puis, si le code de 
la fonction est F0, la routine multi- 
plie par deux la valeur de I octet 

79D1. . 

A partir de cela, elle regarde si 
l’octet qui a pour adressefS) = 
256 * 2 * PEEK&79D1, a pour va- 
leur 55 hexa. Si oui, elle recherche 
le nom du mot-clé à partir de 
l’adresse &nn54 où nn — 2 

*PEEK&79D1. 

Il n’en fallait pas plus pour com- 
prendre que l’ utilisateur pouvait 
créer ses propres tables de mot- 
clés, pour cela il faut : 


- que nn soit congru à modulo 8 
(ceci est du au formatage de l’oc- 
tet 79D1 ). 

- que l’octet qui a pour adresse 
nn00 ait pour valeur 55 hexa. 

- que la table commence en nn54. 

- poker en 79D1, l’adresse de la 
table divisée par deux (POKE 
&79D1, nn/2). 

La question qui reste à élucider, 
c’est comment est structurée une 
table de mots-clés. Il est facile d’y 
répondre en analysant la table qui 
se trouve en ROM. 

Pour chaque mot-clé, on a : 

1) L’octet dont les 4 derniers 
bits caractérisent le mot-clé précé- 
dent et les 4 premiers la longueur 
du prochain mot-clé. 

2) Le nom du mot-clé sous 
forme de code ASCII. 

3) Le code du mot-clé sur 2 oc- 
tets. 

4) L’adresse d’entrée de la rou- 
tine associée au mot-clé. 

Et ainsi de suite. 

La fin de la table se caractérisant 
par une longueur du prochain 
mot-clé nul. 

Par exemple : 



- pour un mot-clé avec entrée et 
sortie d’argument : code de 60 à 
7F 

- pour un mot-clé sans entrée ni 
sortie d'argument : code de 80 à 
FF 

Voilà, j'espère que ces explications 
nous permettrons de créer de nou- 
veaux mot-clés. 

Le CLUB attend vos tables et nou- 
velles instructions. 

Pascal ABRIVARD. 


86 434C4 1535345 F0 80 38C5 

Longueur CLASSE Code Adresse Routine 


L’analyse de la macro IC nous 
montre aussi deux choses : 

- les codes des nouveaux mots- 
clés doivent avoir pour préfixe Fj2f. 

- si deux mots ont le même 
code, celui qui a été créé par l’uti- 
lisateur est prioritaire sur le mot- 
clé ROM. 

Les 4 derniers bits qui caractéri- 
sent le mot-clé précédent repré- 
sentent une valeur de 0 à 15 qui 
suivant le type de mot-clé vaut : 

8 ou 9 : si le mot-clé ne peut être 
utilisé que manuellement (pas 
dans un programme) 

A ou B : l’inverse de ci-dessus 
C à F : le mot-clé peut être utilisé 
manuellement dans un pro- 
gramme. 

Le deuxième code du mauvais 
mot-clé dépend lui aussi du type 
du mot-clé : x 

- pour un mot-clé avec entrée d’ar- 
gument mais sans sortie d’argu- 
ment : code de 80 à FF 

- pour un mot-clé sans entrée d’ar- 
gument mais avec sortie d’argu- 
ment : code 00 à 5F 


LOGITHEQUE 
SHARP PC- 1500 


De M. GLUCK J.-P. 

- « Calendrier perpétuel » sur K7 
à renvoyer 

De M. ARGO 

(Micro-Informatique Saint-Avold) 

- Biorythme astral 
De M. DEICHA Cyril 

- Répertoire téléphonique 
De M. COLLANNE 

- Le jeu de la puce 
De M. LOWY Robert 

- Calendrier (opération sur les 
dates) 


Pts 

Bonus 


3 

4 

5 
4 

2 


De M. GUYON Frédéric 

- Espérance de vie 3 

De I.S. 

- Pendu 3 

- Complexes (calcul dans C) 8 


De M. PERRE 

- Dump 4 


De M. DELYS J.-R. 

- Etudes graphiques 5 


De M. CHRIN Thierry 
(Lisajou) 

- Figures 3 

De M. VISOTTI René 

- Type-writer (traitement de 

texte) 5 

De M. DAGOUSSET Jacques 

- Racines polynômes DEGN 

(maths) 4 

De M. GOUBERT Richard 

- Rapprochement bancaire 3 

De M. ROUTELOUP Philippe 

- Statistiques (maths) 4 

De M. RINGENBACH Régis 

- Guerre des robots (jeux) 2 

De M. CHARLES Frédéric 

- Roland Garros (jeux) 3 

De M. CHARLES Frédéric 

- Labyrinthe (jeux) 2 

De M. CHARLES Frédéric 

- Casse brique (jeux) 2 

De M. GOUILLARD Louis 

- Municipales (dépouillement de 

scrutin) 3 

De M. GOUILLARD Louis 

- Conversion des pentes 3 

De M. GOUILLARD Louis 

- Labyrinthe (jeux) 2 

De M. DUPONT Jean 

- Boogle (jeux) 4 

De M. DUPONT Jean 

- Dateor 3 

De M. DUPONT Jean 

- Chronomètre 3 

De M. HANROT J.-C. 

- Chasse à l’écureuil 3 

De M. LEGRAND J.-M. 

- Carré magique 4 

De M. VERDIERE 

- Météo 5 

De M. VERDIERE 

- Super dessins 4 

De M. FETHY SARTHE 

- ASM 6800 10 

De M. EDOUARD Bernard 

- Jeu du 421 (jeux) 10 

De M. DELYS J.-R. 

- Etiquettes 4 

De M. ABRIVARD P. 

- PC-CALC (utilitaire) 10 

De M. ABRIVARD P. 

- PC-Fichier (gestion adresses) 7 


The psychologist - Pascal ABRI- 
VARD -6 points 

Tenez une conversation avec votre 
PC 1500 

Trajectoire - Pascal ABRIVARD - 

4 points 
Mathématiques 

HP Système - Pascal ABRIVARD - 
8 points 
Calculez en NPI 

Salle des Ventes - Edouard BERNARD - 
7 points 

Gestion d’une salle des ventes 

Analyse des Ventes - Jean Robert DELYS - 

5 points 

Etiquettes - Jean Robert DELYS - 
4 points 17 
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' EDITORIAL 

Ce sera un petit éditorial perdu parmi de nombreux articles. Avec le PC 1251, c’est un nouveau tournant que 
prend cette partie du Bulletin. Espérons que cela continuera avec le PC 1245 et plus tard avec le PC 1401. 
Nous sommes contents de voir que notre premier outil, le PC 1211, reprend du service. Continuez. 

SHARPENTIEREMENT VOTRE 

Luc BÜRELLER 


PROGRAMME POUR PC 1211 


TEMPS DE POSE 
POUR PHOTOGRAPHIER 

LA LUNE 


I. Les problèmes soulevés 

l°)La focale à adopter : 

1 -400 mm : pour distinguer les 

grands cratères, 

- 600 mm : lunettes du commerce 
plutôt que téléobjectifs, détails 
nombreux sur cratères de 
moyenne importance, 

- > 600 mm : pour des photogra- 
phies valables. 

2°) La luminosité de la lune : 

-Le 1 er quartier PQ est 10 fois 
moins lumineux que la pleine 
lune PL 

- la luminosité est proportionnelle 
au cube de la phase, d’où : 
nouvelle lune NL = 0 

pleine lune PL = 1 
1 (T quartier PQ = (0.5) A3 = 
0.125 soit 1/8 

IL Calcul du temps de pose 

T = 125RFF / 121DDS / 
((N/14.77 '/ 3) 

T en secondes 

R temps de pose de référence 
pour la PL avec F/D=ll et 
125ASA dans ce cas R= 4E-3 
soit l/250s. 

F focale de l’objectif en mm 

D diamètre de l’objectif en mm 

S sensibilité du film en ASA ou 

18 "ISO 


N âge de la lune en jours (voir ca- 
lendrier) si N> 14.77 faire 
N -29.77 - N 

III. Temps de pose limite 


IV. Diamètre de la lune 
sur le négatif 

d - 9.1E-3 x F 

O diamètre moyen en mm 
F focale utilisée en mm 


Au dessous de ce temps de pose, 
l'utilisation du moteur du téles- 
cope devient obligatoire, sous 
peine de flou. 

Y 31 / F 
Y en secondes 
F focale utilisée en mm 


V. Calcul de la résolution 

La résolution est la dimension du 
plus petit détail, visible sur la lune, 
que la pellicule enregistrera. 

X = 87 / Cf 

X dimension du détail en km 
O diamètre de la lune sur le né- 
gatif en mm 





VI. Organigramme 


Données : 

Télescope : 0 mm 

Focale mm 

Film utilisé : ASA ou °ISO 
Age de la Lune : en jours 


I Temps de pose 


Oül 


GOSÜB 4001 


IGOSÜB 8001 


NON 





0 sur négatif 


NON 


Temps limite 
de pose 


OUI 


Oül 


GOSÜB 5001 


RETÜRN 


GOSÜB 600 


I RETÜRN 


NON 


sr 


Résolution 


-QÜL 


GOSÜB 700 


RETÜRN 


NON 


2T 


Autre film?! 


NON 


Autre focale? 


NON 


Oül 


ASA= 


Oül y 

F(mm)= 




OUI 


OUI 


Age 

lune changé? 


NON 

Changement total 
des données? 


NON 

Fin programme 


500 .... 

RETÜRN 

600 .... 

RETÜRN 

700 .... 

RETÜRN 

400 .... 

GOSÜB 800 

800 .... 

RETÜRN 


35 IF N> 14.77 LET N =29.77-N 

40 PR. “TEMPS DE POSE? “:A$ 
45 IF A$ = “Oül“ GOSÜB 400 
50 PR/'O.SÜR NEGATIF? ";B$ 
55 IF B$ = “Oül” GOSÜB 500 
60 PR.T.LIM.POSE? “;C$ 

65 IF C$ = “OÜI” GOSÜB 600 
70 PR.-RESOLÜTION? “;E$ 

75 IF E$ = “Oül“ GOSÜB 700 
80 PR/'AÜTRE FILM? " :G$ 

85 IF G$ = “OÜI“ PR.“ASA = ”:S: 
GOTO 40 

90 PR.“AüTRE FOCALE? “:H$ 
95 IF H$ = “Oül“ PR.“F(MM)= 
F:GOTO 40 

100 PR.“AÜTRE AGE LÜNE? 

105 IF I$ = “OüI” GOTO 30 
110 PR.“CHANGT.TOTAL 
DONNEES? ”;J$ 

115 IF J$ = “Oül” GOTO 15 
120 PR. “ARRET PROGRAMME": 
END 


VII. Programme PC 1211 

05 CLEAR 

10 PA. “PHOTOGRAPHIER LA 

LÜNE” 

15 PA. “CONSTANTES Dü TE- 
LESCOPE” 

20 IN.“DIAMETRE(MM)= ”;D, 
“FOCALE(MM)= ”;F 
25 IN. “ASA FILM= ”;$ 

30 IN. “AGE LÜNE= ”;N 


400 R = 4|E-3 

405 T = 125RFF/12 1 DDS/ 
((N/14.77)A3) 

410 GOSÜB 800 
415 RETÜRN 

500 0 = 9.1 E-3xF 
505 ÜS. “####.##” 

510 PR.“O.MOŸEN= ";0;“ MM” 
515 RETÜRN 

600 Y=31/F 


605 ÜS. “##*.##” 

610 PR.“T.LIM.POSE= ”;Y;“ S” 
615 RETÜRN 

700 X=87/0 

705 ÜS. “##*#.###” 

710 PR.“RESOL.= ”;X;“ KM” 

715 RETÜRN 

800 IF T<8E-4 GOTO 905 

805 IFT<1.2E-3 PR.“POSE: 

1/1000 S”:RETÜRN 

810 IFT<1.7E-3 GOTO 905 

815 IF T<2.3E-3 PR.“POSE: 

1/500 S”:RETÜRN 

820 IF T<3.6E-3 GOTO 905 

825 IF T<4.4E-3 PR.“POSE: 

1/250 S”:RETÜRN 

830 IF T<7.5E-3 GOTO 905 

835 IF T<8.5E-3 PR.“POSE: 

1/125 S”:RETÜRN 

840 IFT<1.2E-2 GOTO 905 

845 IF T<2E- PROPOSE: 1/60 S“: 

RETÜRN 

850 IF T<"2 8E-2 GOTO 905 
855 IF T<3.8E-2 PR. “POSE: 

1/30 S“:RETüRN 

860 IF T<6E-2 GOTO 905 

865 IF T <7.2E-2 PR. "POSE: 

1/15 S“:RETÜRN 

870 IF T<. 1 GOTO 905 

875 IF T< . 1 5 PR. “POSE: 1/8 S": 

RETÜRN 

880 IFTc.2 GOTO 905 

885 IF T<.3 PR. “POSE: 1/4 S": 

RETÜRN 

890 IF T<.7 PR. "POSE: 1/2 S": 
RETÜRN 

895 IF T< 1 .2 PR. “POSE: 1 S“: 
RETÜRN 

905 ÜS.“#H ##.####“: 
PR.'T.DE POSE: ":T:“ S“:RETÜRN 




PC 1211 

CALCUL DES TEMPS DE POSE 
PHOTOGRAPHIQUES 
EN ASTRONOMIE PLANETAIRE 


I. Formule du temps de 
pose idéal 

T = FF / DD / BS 
T en secondes 

F en mm, focale du télescope 
D en mm, diamètre du télescope 
B coefficient de brillance de la 
planète à photographier 
S sensibilité du film utilisé en ASA 
FF / DD carré de l’ouverture F/D 

II. Temps de pose limite 

Au-dessus de ce temps de pose, 
l’utilisation du moteur du téles- 
cope devient obligatoire, sous 
peine de flou. 

Ci = 700 / F 
ü en secondes 

F en mm, focale du télescope 


1 V. Organigramme 

(Données : 


|0 télescope 
Focale utilisée 
Coeff. brillance 
0 apparent mini 
0 apparent maxi 

IASA film utilisé 


1 1 em^s ae pose seul | 

UUi 

_l<s-aicui t. pose | | 

|Temps de pose] 

OUI 

. ICalcul t. pose | 

- L ■ - . . — i 

iTemps limite \ 

oai 

ICalcul t. limite j 

' k : 


r I 

|0 sur négatif | 

Oül 

ICalcul 0 mini/maxi | 


lAutre film | 

Oül 



|lnput F (mmj | OUI |Autre focale | 


III. Diamètre de la planète 

photographiée 

sur un négatif 24x36 


OUI lAutre planète 



V. Programme 

005 CLEAR 

01 0 PA.“ASTROPHOTOGRAPHIE":PA."PLANETAIRE” 

015 PA."CSTE.INSTRUMENT":IN."DIAMETRE(MM) = ":D 
020 PA."FOCALE UTILISEE":IN."F(MM) = ":F 
030 PA."CSTES.PLANETAIRES":IN."COEFF.BRILLANCE = 
035 IN."DIAM.APP.MINIC ) = ":L: 

IN."DIAM.APP.MAXlf ’) = ”:M 


E = .4845E-5 x FL 

E diamètre mini en mm 
L largeur mini apparente de la 
planète en secondes d’arc 

G = EM / L 

G diamètre maxi en mm 
M largeur maxi apparente de la 
planète en secondes d’arc 



040 PA."FILM UTILISE" 

045 IN. "ASA = ”:S 

046 IN.’T.POSE SEUL?":AS(27) 

047 IF A$(27) = "OUI" GOTO 700 
050 IN. “TEMPS DE POSE?":V£ 

055 IF V$ = “OUI" GOSUB 400 
060 IN. “TEMPS LIMITE?":W$ 

065 IF W$ = “OUI" GOSUB 500 
070 IN.“O.SUR NEGATIF?”;X$ 

075 IF X$ = “OUI” GOSUB 600 
080 IN. “AUTRE FILM?";Y$ 

085 IF Y$ = “OUI” GOTO 45 
090 IN. “AUTRE FOCALE?”;Z$ 

095 IF Z$ = “NON" GOTO 105 
100 IN.“F(MM)= ”;F:GOTO 50 
1 05 IN. "AUTRE PLAN ETE ?”;A$ 

1 10 IF A$ = “OUI” GOTO 30 
1 15 PR. “ARRET PROGRAMME":END 

400 T= FF/DD/BS 


B 


410 US."####.####” 

420 PR.“T.POSE= ":T:“ S" 

430 RETURN 

500 U = 700/F 

510 US."####.####" 

520 PR.’T.POSE LIM.= ":U:“ S” 
530 RETURN 

600 E=4845E-5xFL 

610 G = EM/L 

620 US."# ###.## #" 

625 PA.-O.SUR NEGATIF EN MM" 
630 PR.E.G 
650 RETURN 

700 T = FF/DD/BS 
710 US."####.####” 

720 PR."T.POSE= ":T:“ S" 

730 GOTO 45 


! 


$ 


VI. Données sur les planètes 2°) Constantes de luminosité 


1°) Diamètres apparents (” d’arc) 


Mercure 

Vénus 

Mars 

Jupiter 

Saturne 

Soleil 

Lune 


mini 5 
10 
4 
31 
15 

1890 

1760 


maxi 13 
66 
25 
50 
21 

1950 

2010 


Mercure 

Vénus 

Mars 

Jupiter 

Saturne 

Pleine lune 
PQ ou DQ 
Croissant 
Fin croiss. 


60 

2000 

60 

30 

10 

200 

40 

20 

10 


Lune gibbeuse 
Lumière cendrée 
Eclipse 

Eclipse 

Soleil 
Couronne 
Couronne 
Ciel d’éclipse 

J. -Louis 


80 

0.01 

0.05 

par la pénombre 
0.005 totale 

■ 10 ? 

1 externe 
50 interne 
0.01 

; BOULANGER 


ACCES MEMOIRE 
SANS «SESAME» 


Je possède un PC 1211 et j’ai en 
permanence l’accès à la mémoire 
sans refaire le «Sésame» à cha- 
que fois. J’obtiens l’accès par la 
touche El , c’est à dire en passant 
par la mémoire de réserve. 

Méthode 

Entrer en mémoire indiquée RE- 
TCIRN de code DE ou U$ pour ob- 
tenir par inversion la fonction de 
code $¥ ou ED affichée sous la 
forme CSAVE par la machine, ce 
qui correspond au M du mode RE- 
SERVE. 

On entrera finalement la ligne : 

1 CSAVE 0 caractère quelconque 
N° de ligne mais la présence d’un 
le plus petit caractère est nécessai- 
possible re mais surtout inférieur 
au plus petit N° de ligne 
du programme déjà en 
place. 

Remarques 

On veillera à ne pas intercaler de 
caractères (ou des fonctions) entre 
le numéro de ligne et (CSAVE + 
caractère ou fonction). 

L’exécution de la ligne en mode 
RCJN ou DEF provoque une erreur 
de type 1 (erreur grammaticale). 

On ne peut effacer une ligne 
contenant, sauf avec NEW 
(CSAVE -l- caractère ou fonction). 
On peut rentrer de telles lignes 
avec des numéros égaux. 


SERVE. C’est plus long et l’on ris- su la touche El : au bout d’un ins- 

que de trouver sur son passage tant apparaît ¥$ : on est retourné 

une fonction qui fera “dérailler” la dans la mémoire programme. On 

machine. On peut néanmoins faire aura avantage à entrer et effacer 

ceci : une ligne, 

en mode RESERVE A : AAA 

M : MMM dans On remarque en passant que cer- 
cet ordre tains codes du type $a a = 0 à 16 

Faire le sésame et faire défiler la c'est à dire a - 0 à F en hexadéci- 
mémoire au-delà de ,7,7/78000. mal provoquent la composition 

d'une ligne lorsque l’on utilise la 
Après avoir obtenu la ligne touche . 

1 CSAVE 0 faire en mode PROBD 
et El OU EQetlfl. 

La mémoire de RESERVE défile si 
elle n'est pas vide. Le défilement 
s'arrête. 

Si l'on maintient appuyé le doigt 



Autre méthode : aller chercher 
CSAVE dans la mémoire RE- 


r LOGITHEQUE 

I • BALISTI : de Monsieur FICHANT • SIMPLi : de I.S. 


Le calcul des dérivés transversales et verti- 
cales d une balle soumise au vent. 

- FILTRES : de Monsieur BRCJART 
Calcul de l’ordre d’un filtre. 

- PPCMGCD : de Monsieur VESIGNOT 
Calcul du PPCM et du PGCD. 

- PREMIER : de Monsieur VESIGNOT 
Calcul du nombre premier. 

- PT MER : de Monsieur CHOSSELEP 
Calcul des coordonnées géographiques. 

- BIORYTHM : de Monsieur STERMANN 

- SHANNON : de Monsieur POINSOT 
Calcul de diversité de SHANNON. 

- MASTER MIND : de I.S. 

Jeux. 

- AGENDA : de I.S. 

Plannifier les 26 jours à venir. 


Simplification de fractions et recherche de 
fractions à partir d’un nombre. 

- SECTOR : de I.S. 

Jeux. 

- FACTO : de Monsieur PAGLI 
Méthode du STIRLING. 

- FIX V.l. ; de I.S. 

Arrondi. 

- IMPÔTS : de Monsieur THIBAUT 
Impôts 81. 

- PUISSANCE : de I.S. 

- BALL GAME : de I.S. 

Jeux. 

- CONVERSION ANGLOSAXONNE : de I.S. 
Conversion des principales mesures anglo- 
saxonnes (livre, mile, gallon, fahrenheit). 
-FACTORIEL: de I.S. 

(mantisse complète, très bon à l’exécution). 


PC 1111 


Touches 

Affichage 

CD 

¥5 n 
cîrseur 

m 

20 : + 

m 

728000 

788000 

m 

.28000 

m 

$¥CSAVE 0 
Code de SCAVE 


$¥CSAVE 0 
curseur 

m 

f $¥CSAVE 0 
curseur 

1 espace 

luSCAVE 0 
espacecurseur 

Enter 

Utilisation : 

1 : SCAVE 0 


Partir de la ligne suivante qui est 
ici 10 PRINT 1 
Faire : SU et CO 
ou OQ et CD ¥S tt 

suite de 

la ligne [D 151 : $(200)=”< 
= RETÜRN 
ISl RETÜRN 
DO ¥5 TT 
GO E20000 
El E88000 


Exemple : 

$1 À du mode RESERVE : THEN 
$Y M du mode RESERVE : CSAVE 
On pourra ainsi explorer la mé- 
moire d’où l’on veut, et rapide- 
ment. 

Le PC 1211 nous cache encore 
beaucoup de choses. J’espère que 
ceci vous aidera à les trouver. 


PS : de J du mode RESERVE, on 
obtient LIST de code EA ($), ce qui 
permet d’obtenir la fonction .$ qui 
s’écrit STEPS espace et l’on a : 
STEPS (expression) : 

1 si expression ^0 
0 si expression <0 


Patrice PIQUEREAU 


- Exemple pratique 


Facultatif : Mode PRO 


Facultatif : Mode RESERVE 


Mode PRO 
ou RÜN 
ou DEF 

Sésame : Mode PRO 10 


en mode RÜN ou DEF : 


Touches 


NEW 

Enter 

Shift A 
A$(200) = ” 
Enter 

Shift S RE.RE 
Enter 


Shift A 
Shift S 
Enter 

Enter 

20 quelconque 
Enter 

Enter 

RÜN 10 
Enter 
MEM 
Enter 

[ 1 seule fois 
ïntef 


wma 


pour avoir le PRO 


Affichage 


NEW 


WÊÊÊÊÊÊÊKÊKKÊÊÊKÊÊÊttÊÊHÊKM 

A : A$(200) = ” 

A : A$(200) = ” 

S : RE.RE 

S : RETÜRN RETÜRN 

au moins 1 x RETÜRN 

A$(200) = ” 

A$(200) = ” RETÜRN RETÜRN - 

^KammÊËËÈK^iÊimimiÊtÊm 

10 : PRINT 1 

ME — — — — 


RÜN 10 
MEM 

1419 STEPS 177 MEMORIES 
BREAK AT 10 

^ — 

Ülll lfill 
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PC 1111-1151 

-CALCULS PRECIS: de Monsieur 

VESIGNOT 

Multiplication, division, de nombres à plus 
de 44 chiffres significatifs. 


De Mr J-F. CHAPIN : 

- MOTEXMO : Notes externes et moyennes 
utiles aux professeurs pour leurs conseils de 
classes. 

- WEIGHT : Programme de conversion 
anglosaxonne sur les poids. 

- RELATIF : Emploi des pronoms relatifs en 
anglais. 

- MCQ REL : Questionnaire sur les pronoms 
relatifs en anglais. 

- SUPERVI : Verbes irréguliers anglais. 

- TENSE : Test sur l’emploi des temps en 
anglais. 

- MEASURE : (en 3 parties) Conversion de 
distance, change, température, longueur, 
volume. 

De Mr BOISRAYON : 

- CŒF BAL : Calcul du coefficient balistique 
d’une balle de petit calibre. 

- BALARM : Balistiques des armes rayées 
portatives. 

- FACTO : Factorielle formule de Stirling. 

- APPROX : Fraction approximant un réel R. 

- IMPLICI : Résolution d’une fonction 
implicite. 

- WEDINT : Intégration par la méthode 
Deweddle. 

- RACCAR : Extraction d’une racine carrée 
entrée par la méthode arithmétique. 

De Mr CAMPAGNE : 

- BANQUE : Gestion d’au plus 25 crédits ou 
débits. 

De Mr BODET : 

- INVADERS : Jeu. 

- BAC : Intéressant de savoir si vous l’aurez, 
en fonction de vos notes actuelles. 

De Mr DARJO : 

- CALENDIER : Imprime le calendrier d’une 
année. 

- SIMON : Jeu, mémorisation de nombres. 

De Mr COTILLON : 

- SOUPAPE : Calculs de soupapes. 

De Mr MULLOT : 

- SERVAC : Service achats, commandes sur 
5 mois. 

De Mr CLOUE: 

- FONC : Traceur de fonctions (nécessite 
CE 122). 

De Mr BARRE : 

- TRI : Méthode de Shell, 70 données. 

De Mr GAY : 

- MATRICE : Calcul sur la matrice d’ordre X 
(X 8) 

- FONCT : Recherche d’une fonction véri- 
fiant des données. 

De Mr TAUZIEDE : 

- DISTAN : Calcul d’une distance réelle sur 
une planète. 

De Mr MADEUF : 

- POLY : Calculs de polynômes. 


De Mr NOËL: 

- TOPOGRA : Relèvement italien, méthode 
de POTHENDT. 

De Mr HAL BARONN : 

- TUYAU : Calcul de la perte de charge d’une 
tuyauterie l’air de secteur circulaire. 

De Mr ZUMMER : 

- POLIDIR : Division de polynômes. 

De Mr BRENAS : 

- CLEF DE RIB 

De Mr PIACENTINO : 

- Jeu de la boîte noire. 

De Mr ZUMMER: 

- Naval 1, Naval 2 : Jeu de bataille navale. 

- Bourse : Jeu de bourse. 

De Mr BALEMETTE Didier : 

- FLECH : Jeu de fléchettes. 

De Mr RAMPAL Guy : 

- SUBROG : Calcul automatique de la tari- 
fication de la facture subrogatoire de la 
Sécurité Sociale. 

De Mr BODET Pierre : 

- TENNIS 

- MAX : Jeu des chiffres et des lettres. 

- NAVAL : Jeu de la bataille navale (contre 

PC 1211). 

De Mr VALLY Bruno : 

- QI : Calcul du QI. 

- PI : Aptitude verbale. 

De Mr BOUTIN G. : 

- ASTRO : Astronomie, Calculs des équi- 
noxes en coordonnée équatoriales. 

De Mr GRESSARD J-M. : 

- TIERCE 

De Mr GAY Thierry : 

- JACKPOT 

De Mr A1UTI Laurent : 

- STATIS : Stratistiques. 

De Mr CHAPIN J-F. : 

- CLASS 82 : Gestion des élèves d’une 
classe. 

- CIRCLAS 

- SELCLAS SECL 2 : Utiles à tous les 
professeurs. 

- FICH DAT 
-STAT DAT 

- AGEFICH 

De Mr SANTARELLI Eric : 

- JEU DE L’OIE 

- JEU DU ROBOT FOU 

- PENDU : Jusqu’à 24 lettres. 

De Mr DELCOURT Alain : 

- ISOLEMENT 

- PROFILES 

- PAYE 


De Mr MORTIER : 

- CA12 : Destiné aux petits contribuables 
soumis au régime simplifié de la T.V.A. 
(impôts). 

De Mr BALMETTRE Didier : 

- Attaque nucléaire : jeux. 

- L’île au trésor : jeux. 

- Q.I. : jeux. 


De Mr BUSCHINI Philippe : 

- Calcul de fréquence (Thomson). I 

- Impédance d’un circuit résonnant série. 

De Mr X : 

- Ordinateur de bord 

- Le château de TIHP : jeux. 

- PRINT : utilitaire. 

- DCA : jeux. 

De Mr DELYS Jean-Robert : 

- Erreur n’est pas comptée : Comparaison de 
prix utile aux ménagères. 

De Mr COTILLON : 

- Calcul d’éléments déprimogènes. 

- Calcul de soupapes de sûreté. 

De Mr MORTIER : 

- Contrôle des CA 12 

De Mr CHAPIN : 

- Jury bac 

- Essay 

- Delib-d (variante Jury bac). 

De Mr J-L. BECHENNEC : 

- Astro 1 : position des planètes. 

- Astro 2 : distances terre soleil. 

De Mr Pierre MALLER : 

- Graph : Dessin de fonction. 

De Mr BOISRAYON : 

- PERAXO : Le programme donne les coor- 
données cartésiennes planes d’une projec- 
tion axonométrique d’un objet spatial défini 
par les coordonnées tridimensionnelles car- 
tésiennes d’un certain nombre des ses 
points. 

- PERCEA : Programme donne les coordon- 
nées cartésiennes planes d’une projection 
perspective centrale ou cavalier d’un objet 
spatial défini par les coordonnées cartésien- 
nes d’un certain nombre de ses points. 

- CRYTOGRAPHIE : de DUS AU LT Alain. 

- SPACE INVADERS : de MARTINEAU F. 

- TABLE DE VERITE : de CHAUVIERE R. 

- COURSE AUTO : de CARASSO Antoine. 

- JEUX DE MEMOIRE : de CARASSO A. 

- TRESOR PROTEGE : de CARASSO A. 

- JULIEN-GREGORIEN : de COUET P. 

- BANQUE : de COUET P. 

- REPERAGE AU SOLEIL : de GEBUS P. 

- STATISTIQUES : de MULLOT G. 

- BRIDGE PREVISION : de DELYS J.R. 

- Calculatrice imprimante 
Jean Robert DELYS 

PC 1251 

- PUISSANCE 4 : de MARVIN Johnson. 
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i actualité i 

Le Club et les expositions 


Cln événement dans la vie du 
CL(JB : une exposition du 30 avril 
au 12 mai se déroulait au Parc des 
Expositions de la Porte de Versailles 
à Paris, LA FOIRE DE PARIS. Pour 
vous rencontrer et vous faire 
connaître le CLCIB, nous y avions 
un stand. 

L’équipe-club et les fidèles 
Sharpentiers de la région Pari- 
sienne se sont relayés pour tenir 
ce stand où tous les meubles et le 
matériel du CLUB étaient réunis. 

Les Sharpentiers 
diffusent 

Au cours de cette exposition, 
2 000 bulletins n°5 ont été distri- 
bués gracieusement aux gens qui 
nous ont rendu visite. Les posses- 
seurs de produits Sharp qui ne 
connaissaient pas le Club étaient 
plus nombreux que nous le pen- 
sions. La diffusion de ces bulletins 
a relancé depuis, le nombre des 
inscriptions. 

Les Sharpentiers 
échangent 

Avec les Sharpentiers qui sont ve- 
nus, nous avons échangé des pro- 
grammes et des informations inté- 
ressantes. Notre matériel sous la 
main, un échange de programmes 
ne prenait que quelques minutes. 

Les Sharpentiers 
hypnotisent 

Etait présent à la Foire de Paris, 


qui est venu plusieurs fois sur no- 
tre stand tenter une expérience in- 
téressane et inattendue : l’Appren- 
tissage d’idéogrammes Japonais à 
l’aide d’un PC 1500’ 


Comment?? 

D’un côté un PC 1500 relié à une 
table traçante (celle du CLCIB 0 
Watanabe WX 4671) à l’aide d’un £ 
RS 232C, avec un programme gé- c 
nérant des idéogrammes Japo- £ 
nais. De l’autre côté, devant la ta- ^ 
ble traçante, quelqu’un qui sous £ 
hypnose, laisse guider son bras | 
par le stylo de la table traçante. ^ 



Résultat 

Après quelques minutes, l’hypno- 
tisé revenu à la réalité quotidienne 
sait à la demande restituer ce qu’il 
vient d’apprendre sous hypnose. 
Intéressant, n’est-ce-pas? 

Eric BARON E 

127 rue de Flandre 7501 9 Paris 


Les Sharpentiers 
récidivent 

Eh oui! Micro Expo, nous y étions 
présents sur le stand Sharp où un 
petit coin nous était réservé. 

Et nous revoilà, aujourd’hui, ici, au 
SICOB où nous avons un stand 
qui, nous l’espérons, vous plaira. 
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Avec le RC 1500, on apprend plein de choses. 


Le siège de SHARP à Tokyo. 



UN SHARPENTIER 
AO JAPON 



technologiques constants : radios, 
téléviseurs, climatiseurs, fours à 
micro-ondes (1962), cellules solai- 
res, et plus récemment calculatri- 
ces et ordinateurs, collectionnant 
les «premières mondiales». 

Notre visite continue par le «Hall 
Technologique». La porte électri- 
que est commandée par la voix. 
Nous passons devant un minuscule 
radio-cassette-téléviseur à alimen- 
tation solaire, des télécopieurs et 
photocopieurs, pour arriver à un 
système complet de traitement de 
texte japonais, capable d’utiliser 
une bonne partie des 2500 idéo- 
grammes nippons! Plus loin, le cé- 
lèbre XI, ordinateur grand public, 
affiche sur son écran une « compo- 
sition» vidéo, moitié en prove- 
nance d’un magnétoscope, moitié 
généré par lui-même (graphique 
couleur 640 x 400). L’adjonction 
de l’imprimante 7 couleurs à jets 
d’encre 85 colonnes permet d’ob- 
tenir une excellente copie couleur 
de l’écran (utilisable sur d’autres 
ordinateurs, elle vient d’arriver en 
France). A côté du XI, un «an- 
cien» PC-1211 est connecté à un 
mystérieux boîtier lui-même relié à 
un modem : peut-être l’exportation 
en sera-t-elle décidée? 


Le Japon nous surprendra toujours. Mais pourtant, 
cette journée du 15 août sur Tokyo n’avait rien de très 
exotique : le ciel noir déversait des trombes d’eau sur la 
plus grande métropole du monde. Le temps heureuse- 
ment n’allait pas contrarier mes projets : en effet, j’arri- 
vais au Japon, grâce à l’aimable invitation de SBM, - 
pour visiter quelques-unes des 34 usines Sharp où sont | 
produites nos chères machines. £ 


Mon périple commence le 16 août 
par le siège social de Sharp Cor- 
poration à Osaka. C’est là, au 
cœur de la deuxième ville du Japon 
que se décident les options techni- 
ques et commerciales du futur. 
Dans des salles de conférence 
ultra-modernes, des spécialistes 
assistés d’ordinateurs analysent 
les besoins du monde entier pour 
adapter production et demande. 
Mon hôte, M. Minamii, Directeur 
International des ventes pour les 
ordinateurs, me montre d’immen- 
ses salles où sont regroupés les 
matériels de démonstration, ordi- 
nateurs, appareils vidéo, hi-fi, élec- 
troménager, dont certains sont ré- 
servés au seul marché japonais 
(calculatrices-boulier, appareils 
ménagers)... 

La journée du 17 août sera char- 


gée en visites. Ayant rejoint entre- 
temps la ville de Nara, où M. Ikawa, 
du département de vente interna- 
tional des ordinateurs, a la gentil- 
lesse de me servir de guide dans 
les usines Sharp de la région. No- ^ 
tre première destination : le «Cen- ^ 
tre de Développement des Techni- | 
ques de Pointe et de Planification » t 
à Tenri. Nous passons devant les £ 
dortoirs qui accueillent les ingé- l 
nieurs japonais en stage ici. CJne ^ 
hôtesse Sharp se joint à nous pour £ 
la visite du «Mémorial Hall» qui £ 
retrace l’historique de la Société. £ 
Son fondateur, Tpkuji Hayakawa, a ? 
inventé à l’âge de L8 ans en 1912 § 
un porte-mine, «Fever-Sharp pen- ^ 
cil». Après le tremblement de terre ^ 
de 1923 dans lequel il a perdu sa 
famille et ses usines, il reprend les à 
affaires en misant sur les progrès i 



25 


actualité 


Les nouveaux afficheurs graphi- 
ques à film mince électrolumines- 
cent retiennent notre attention : ils 
sont aussi « plats » que les écrans 
de nos poquettes, mais avec une 
taille et une finesse digne d’un 
moniteur de télévision. M. Ikawa 
estime à 5 ans le délai nécessaire 
à la fabrication de TV couleurs 
extra-plates utilisant ces écrans! 
Nous continuons avec des dé- 
monstrations de disques compact 
laser vidéo et audio, de projecteurs 
d’images laser sur grand écran, de 
caméras vidéo couleur à focus au- 
tomatique, et autres robots ba- 
vards à commande vocale. Enfin à 
l’aide de trois caméras couleur si- 
tuées sur le toit du building et télé- 
commandées depuis notre place, 
nous découvrons visuellement no- 
tre prochaine étape : l’usine de fa- 
brication des circuits intégrés. 
Avant la visite, un court film vidéo 
nous rappelle les pricipales étapes 
de la création de ces «chips». J’ap- 
prends que Sharp utilise 40 % de sa 
production de 12 millions de cir- 


cuits par mois. Puis nous circulons 
le long des immenses salles de fa- 
brication, la lumière jaune est dé- 
barassée de tout rayon CIV, l’air, 
2000 fois plus purifié que celui d’un 
bureau ordinaire, circule de haut 
en bas de ces pièces pour éliminer 
d’éventuelles particules microsco- 
piques de poussière nuisibles aux 
circuits intégrés. 200 ouvriers seu- 
lement, encapuchonnés pour ne 
pas contaminer les chips, suffisent 
à surveiller les chaînes hautement 
robotisées. Plus loin, des machi- 
nes testent chaque circuit 500 fois 
en 3 secondes (!). Enfin, dans des 
pièces jamais pénétrées par 
l’homme, des robots travaillent sur 
les chips de demain, tri-dimension- 
nels, des milliers de fois plus intel- 
ligents que ceux que nous 
connaissons aujourd’hui... 

J’ai retrouvé le sentiment de ren- 
contrer «l’avenir de l’informati- 
que» plus tard, au Groupe Equipe- 
ments Industriels, en discutant 
longuement avec le superviseur du 
projet PC- 1500 et un des deux 


principaux concepteurs de cette 
machine. Ils ont été très étonnés 
d’apprendre que, grâce au travail 
acharné de dizaines de Sharpen- 
tiers, nous possédions presque 
tous les codes «secrets» du lan- 
gage machine du PC- 1500 avant 
leur divulgation!... 

Enfin, j’ai pu consacrer mes derniè- 
res journées au Japon à la visite 
d’autres symboles de l’industrie 
nipponne (aciéries, maintenance 
des 747 à Haneda Airport...) et à 
errer dans Akihabara et Shinjuku, 
véritables «souks» de l’électroni- 
que japonnaise au cœur de Tokyo. 
Une chose est sûre : Ce premier 
séjour au Pays du Soleil Levant 
m’a convaincu de la capacité du 
Japon et de Sharp à relever les 
défis technologiques... 

Je ne voudrais pas terminer sans 
remercier vivement MM. de Qua- 
trebarbes et Bureller de SBM à Pa- 
ris, ainsi que MM. Minamii, Ikawa 
et Nakanishi de Sharp au Japon, 
qui m’ont ouvert leurs usines. 
Xavier LEBEGCIE 


CLUBS 

REGIONAUX 

De plus en plus nombreux sont les Sharpentiers qui à 
l’instar de leurs amis Parisiens désirent pouvoir se re- 
grouper et échanger des informations dans des lieux 
qui leur soient propres. 

L’obstacle majeur réside dans le fait de trouver un local. 


mmmmmmmmmmummmmmummmmmmmmmmmummmmmm mmm % 

Je suis Melle, Mme, M .' 

Je désirerais fonder un CLUB SHARPENTIER REGIONAL 

dans la région de 

Je suis un particulier (a) 

un distributeur (a) et je dispose d’un local de m 2 (a) 

et je ne dispose pas de local (a) 

Je suis prêt à m’occuper des matériels suivants (3 minimum) (a) 


PC 1211 (1212) - PC 1500 - PC 1251 - PC 1401 - 
MZ 80A - MZ 80B - MZ 80K - MZ 700 - MZ 3541 - 

J’attends avec impatience votre réponse. 

Amicalement. 

Mon adresse : 

Code postal : Ville : Profession : 

N° adhérent: 

Suggestions ou commentaires : 


26 (a) Rayer les mentions inutiles. 


Quatre solutions peuvent s’offrir à 
vous : 

1) Trouver un local moyennant fi- 
nance et le payer grâce à des 
cours d’informatique, 

2) Entrer en contact avec le distri- 
buteur régional SHARP, 

3) Trouver un local dans l’enceinte 
de votre établissement scolaire, 

4) Demander une aide à la mairie 
pour l’attribution d’un local. 

Les CLUBS régionaux seront mis 
en contact direct (établissement 
d’une liste et d’une note d’infor- 
mation spéciale) et seront en 
contact permanent avec nous. Ils 
disposeront d’une très grande par- 
tie de nos informations et pro- 
grammes, participeront aux tra- 
vaux collectifs, formation de 
groupe de travail autour d’un sujet, 
participeront à des concours inter- 
clubs etc... 

Ils seront établis en Associations 
Loi 1901. 

Pour être ouvert, votre CLUB ré- 
gional devra comprendre un cer- 
tain nombre de personnes. Ce 
nombre minimum sera fonction 
de votre région. Nous nous char- 
geons d’informer les membres de 
votre existence. 

Nous attendons vos réponses, vos 
articles et vos suggestions : n’ou- 
bliez pas que nos colonnes vous 
sont ouvertes. 


ERRATÜM 

Des erreurs dans le DCIMP page 8 du dernier Bulletin 
s’étaient glissées. Voici le bon listing. 


38C6 : 

4A 

51 

62 

04 

39A2 : 45 

22 

44 

2 F 

38CA • 

62 

51 

61 

51 

39A6 : 2A 

2B 

20 

56 

38CE ■ 

^2 

71 

61 

32 

39AA: 52 

23 

46 

50 

3802 

3A 

59 

D9 

01 

39AE • 08 

3D 

02 

5A 

3806. 

59 

51 

49 

42 

. 39B2: 51 

IB 

41 

18 

38DA . 

79 

71 

69 

13 

3986. 1F 

0C 

A2 

42 

380t. 

49 

51 

64 

71 

39BA : 54 

24 

47 

39 

38F. 2- 

79 

0.1 

02 

52 

39BE . 36 

93 

C8 

B5 

38P.6 ■ 

49 

4 2 

79 

72 

39C2 : B2 

01 

DA 

CA 

38P.A ■ 

IB 

59 

51 

44 

39C6: 0B 

B6 

BF 

Cl 

3 8 Et • 

71 

69 

21 

02 

39CA : C9 

A4 

C0 

AA 

38f2. 

01 

59 

4A 

52 

39CE : AB 

D0 

CD 

CC 

38 r 6 . 

61 

69 

7 1 

79 

39D2 : 01 

A8 

C2 

CB 

38F A. 

02 

49 

51 

59 

39D6 : BB 

07 

B7 

C6 

3 8 F F. 

61 

37 

7A 

29 

39DA : 02 

A3 

C3 

03 

3902 

L9 

51 

4A 

52 

39DE : 04 

05 

B8 

B9 

3906 . 

61 

69 

7.1 

79 

39E2 : AE 

A5 

AF 

08 

390A ■ 

3A 

01 

51 

59 

39E6 : CF 

D6 

5E 

C7 

390E ■ 

49 

51 

59 

61 

39EA: B0 

A6 

BA 

09 

3912. 

32 

F'9 

1 1 

7.9 

39EE : 3B 

C5 

02 

B1 

3916. 

41 

54 

61 

51 

39F2 : C4 

IB 

BD 

3 A 

39 1 A • 

41 

51 

39 

61 

39F6: 2C 

1 C 

BC 

B4 

39 1 E • 

31 

41 

51 

32 

39F A. B 1 

A7 

B3 

AD 

3922- 

62 

3B 

1 ! 

69 

3.9FE . OC 

CL 

4 8 

2 B 

3926. 

f:i 

12 

79 

42 

3A02 : 1F 

2B 

48 

.32 

392A • 

49 

IA 

21 

42 

3A06 : 4D 

0F 

40 

32 

392E • 

19 

F 4 

12 

49 

3A0A : 72 

00 

0F 

0D 

3932: 

41 

7 A 

12 

6A 

3A0E : 72 

26 

59 

0F 

3936: 

61 

09 

49 

55 

3A1 2 : 53 

26 

66 

19 

393A: 

41 

79 

71 

79 

3A16: 0F 

19 

66 

20 

393E : 

71 

69 

62 

13 

3A1A: 4A 

70 

4A 

20 

3942 : 

C2 

0C 

1 1 

51 

3A1E: 10 

24 

3E 

24 

3946: 

64 

75 

Fl 

16 

3A22 : 10 

18 

24 

24 

394A ; 

7C 

71 

69 

62 

3A26 . 18 

24 

40 

3F 

394E : 

59 

51 

CC 

12 

3A2A : 15 

16 

08 

7F 

3952: 

44 

51 

5A 

6A 

3A2E : 01 

01 

01 

03 

3956: 

Fl 

1 1 

79 

41 

3A32 : 3.1 

4A 

44 

4A 

395A: 

49 

51 

5B 

49 

3A36 : 31 

18 

14 

12 

395E : 

42 

79 

2A 

61 

3 A3 A: 14 

18 

32 

40 

3962: 

69 

Fl 

4A 

7A 

3A3E : 49 

31 

02 

30 

3966: 

15 

6A 

71 

IA 

3A42 : 4C 

4A 

4A 

20 

396A : 

41 

F9 

68 

78 

3A46 : 28 

54 

44 

28 

396E : 

6A 

50 

B5 

00 

3A4A: 00 

02 

3C 

02 

39 22 : 

61 

B5 

3A 

61 

3A4E : 7C 

00 

3C 

4A 

3926: 

B5 

00 

2E 

6A 

3A52 • 4A 

3D 

00 

00 

3.97A : 

4E 

68 

76 

6B 

3A56 : 3C 

40 

00 

00 

397E • 

04 

9A 

5C 

4E 

3A5A: 44 

24 

18 

24 

3982: 

59 

01 

48 

38 

3A5E : 42 

42 

24 

18 

3986. 

35 

32 

09 

58 

3A62 : 20 

40 

40 

3c 

3 .9 8 A : 

57 

21 

53 

A9 

3A66 : 10 

IC 

20 

08 

398E : 

2D 

2E 

30 

4D 

3A6A : 1 0 

20 

44 

38 

3992: 

55 

25 

4 A 

37 

3A6E : 30 

48 

48 

30 

3996: 

34 

31 

00 

28 

3A72 : 00 

44 

3C 

04 

399A : 

49 

26 

4B 

4F 

3A76 : 7C 

44 

40 

3t 

399E : 

4C 

29 

19 

43 

3A7A: 09 

09 

06 

63 


Quand 

Duriez 

critique 

Sharp... 


|L EST SORTI ! Le 
* nouveau catalogue 
Duriez “micro- 
ordinateurs” considé- 
rablement augmenté, 
contient plusieurs pages 
sur Sharp. 


Il est bourré d’appré- 
ciations critiques, tests, 
opinions d’utilisateurs. 
Plus le Lexic-Basic 
Duriez. Envoi contre 
3 timbres à 2 Fr. (Gra- 
tuit au magasin). 

ssr-^Et les prix charter 
PI Duriez sont bien inté- 
ressants aussi ! 

Chez Duriez, 132, Bd 
St Germain, 6 e . 
M° Odéon. 9 h 35 à 
lundis. 



j Un Sharpiste sachant acheter achète 
J pas cher à Prix Charter chez Duriez ¥ 


* 

* 

* 

* 

* 

* 

* 

* 

5 


QUELQUES PRIX DURIEZ 

PC 1212 F.ttc 950 


Imprimante CE 122 

PC 1500 

Imprimante CE 150 . 

PC 1500 + CE 150 .. 

8 Ko RAM 

16 K RAM 

8 Ko RAM permanent 
Interface série parallèle . 
Cable pr. imprimante . 
Tablette numérique . . 

PC 1 25 1 


CE 125 (lect. K7+ imp 

PC 1245 

PC 1251 + CE 125 , 

PC 1245 + CE 125 


. 750 
1750 
1770 
3400 
. 450 
1880 
1100 
1890 
. 694 
1240 
1390 
1590 
. 950 
2900 
2500 


CASSETTES-PROGRAMMES 

Loaistick : Jeux. 

N os b 2, 3, 4, ou 5 chacun F 57 

PC Cale 3 260 

PC macro-assembleur . . . 285 

PC Plot 260 

PC Graph 260 

PC Word 260 

LIVRES 

La Conduite du PC 1 2 11 F. 65 
Variations pour PC 121 1 . . 82 
La Conduite du PC 1500 . . 85 
La Découverte du PC 1 500 . . 92 
Découvrez le Sharp PC 1 500 85 
Suite pqur PC 1500 82 

Prix sauf erreur omission ou modifie, tardive 


¥ 

¥ 

¥ 

¥ 

t 

¥ 

¥ 

¥ 

¥ 

¥ 

¥ 


Je commande à Duriez : &^ BdS, Gennain 


□ 1 Catalogue 

, Duriez “Micros” (essais 
comparatifs des 20 micro- 
ordinateurs les plus vendus 
chez Dutiez) contre 3 timbres 
à 2 F. 

□ Le(s) article(s) entouré(s) , 
sur cette page photocopiée 

| (ou cités ci-dessous). 

Si changement de prix, je 
serai avisé avant expédition. 

□ Ci-joint chèque de ... . 

. ..' .F 

v compris Port et Emballage 40 F 


□ Je paierai à réception Mes Nom, Prénoms, Adresse I 
(Contre Remboursement) (N°, Rue, Code, Ville) : 
moyennant un supplément 
de 30 F + 40 F Port et 
emballage. 

J’aurai le droit, si non satis- 
fait, de renvoyer sous 8 jours 
le(s) appareil(s) modules, 

Cassettes ou ouvrages 
Duriez, qui me remboursera 
la somme ci-dessus, (sauf 
suppl. 30 F du C. Rb), port 
et emballage. 


Date et Signaturè . 


Sharp Sept. 83 


B 27 


ERRATUM 


3A7E : 

55 

43 

41 

63 

3B76: 

78 

32 

02 

7F 

3C6E: 

55 

2A 

55 

2A 

3D66 

40 

31 

40 

3E 

3A82 • 

18 

24 

24 

JC 

3B7A '• 

02 

32 

02 

12 

3C72: 

55 

2A 

55 

2A 

3D6A 

40 

46 

40 

54 

3A86: 

04 

08 

04 

3C 

3B7E ; 

22 

52 

0E 

21 

3C76: 

20 

40 

3E 

01 

3D6E 

40 

63 

40 

71 

3A8A; 

44 

04 

04 

78 

3B82: 

25 

25 

21 

40 

3C7A. 

02 

78 

00 

78 

3072 

40 

7C 

40 

89 

3A8E: 

04 

04 

08 

08 

3B86 : 

78 

44 

42 

51 

3C7E • 

a 8 

78 

38 

C6 

3076 

.40 

8E 

40 

93 

3A92; 

55 

7F 

55 

08 

3B8A : 

60 

40 

28 

10 

3C82 : 

38 

05 

38 

E5 

3D7A 

40 

B5 

40 

D3 

3A96: 

06 

08 

7E 

09 

3B8E: 

28 

07 

04 

05 

3C86 : 

38 

F2 

39 

03 

3D7E 

40 

DA 

04 

1 1 

3A9A; 

06 

07 

08 

7F 

3B92 • 

3F 

.4 5 

45 

02 

3C8A : 

39 

14 

39 

27 

3082 

69 

62 

59 

51 

3A9E' : 

08 

07 

58 

64 

3B96; 

7F 

07 

12 

0E 

3C8E: 

39 

30 

39 

38 

3D86 

49 

42 

12 

61 

3AA2: 

04 

64 

58 

30 

3B9A : 

40 

42 

42 

PE 

3C92 ; 

39 

43 

39 

49 

3D8A 

69 

Fl 

0B 

59 

3AA6 . 

48 

20 

48 

30 

3B3E : 

40 

4A 

4A 

4 A 

3C96: 

39 

51 

39 

57 

308E 

61 

69 

79 

41 

3AAA- 

00 

05 

03 

00 

3BA2 ; 

4A 

7E 

04 

05 

3C9A - 

3D 

80 

30 

8C 

3D92 

21 

69 

79 

41 

3AAE : 

00 

05 

45 

25 

3BA6: 

45 

25 

IC 

00 

3C9E • 

3D 

97 

30 

9E 

3096 

C9 

15 

79 

73 

3AB2: 

15 

0F 

44 

34 

3BAA: 

1F 

40 

20 

1F 

3CA2: 

30 

AA 

39 

64 

3D9A 

13 

49 

79 

F4 

3AB6 : 

14 

0C 

00 

10 

3BAE : 

40 

3E 

00 

7F 

3CA6; 

30 

AD 

3D 

B2 

3D9E 

14 

73 

79 

41 

3ABA: 

08 

PC 

02 

00 

3BB7: 

20 

00 

7F 

40 

3CAA. 

30 

B9 

3D 

BF 

3DA2 

49 

53 

59 

61 

3ABE : 

0C 

44 

26 

IC 

3BB6 . 

70 

18 

7 F 

42 

3CAE ; 

3D 

C8 

3D 

CF 

3DA6 

69 

79 

4 1 

CA 

3AC2 ; 

00 

44 

44 

7C 

3BBA- 

42 

42 

PE 

07 

3CB2- 

30 

08 

30 

E2 

3DAA 

02 

59 

D3 

4A 

3AC6 . 

44 

00 

34 

0C 

3BBE : 

01 

41 

21 

1F 

3CB6: 

30 

EB 

30 

FJ 

3DAL 

'x'A 

1 A 

51 

DA 

3ACA. 

y£ 

04 

00 

04 

3BC2: 

42 

42 

40 

20 

3CBA ; 

30 

F 8 

3E 

05 

3DB2 

49 

54 

32 

42 

3ACE: 

PE 

04 

14 

0C 

3BC6 : 

18 

01 

02 

00 

3CBE : 

3E 

0E 

3E 

18 

3DB6 

29 

19 

D2 

0B 

3AD2 ; 

40 

44 

44 

PC 

3BCA; 

01 

02 

02 

05 

3CC2: 

3E 

23 

3E 

2E 

3DBA 

1 1 

79 

72 

69 

3AD6; 

40 

54 

54 

54 

3BCE ; 

05 

02 

00 

70 

3CC6: 

3E 

32 

3E 

37 

3DBE 

DB 

01 

41 

49 

3ADA; 

PC 

00 

0C 

00 

3B02: 

60 

50 

08 

04 

3CCA: 

3E 

3E 

3E 

42 

3DC2 

51 

59 

61 

69 

3ADE ; 

4C 

20 

IC 

04 

3BD6 ; 

10 

20 

7F 

20 

3CCE: 

3E 

4A 

3E 

4F 

3DC6 

71 

F9 

49 

52 

3AE2 : 

04 

04 

04 

04 

3BDA: 

10 

04 

08 

50 

3CD2 ■ 

3E 

54 

3E 

59 

3DCA 

21 

44 

21 

73 

3AE6 : 

0J 

41 

30 

03 

3BDE. 

60 

70 

08 

JC 

3CD6 . 

3E 

50 

3E 

62 

3DCE 

Cl 

49 

54 

49 

3AEA; 

02 

10 

08 

PC 

?RF7: 

7 A 

08 

08 

72 

3CDA • 

3E 

69 

3E 

6B 

3DD2 

41 

79 

71 

69 

3AEE ; 

02 

01 

0E 

02 

3BE6. 

3.1 

55 

46 

27 

3CDE : 

3E 

72 

3E 

76 

3DD6 

61 

D9 

1 1 

4A 

3AF2 : 

43 

22 

1E 

42 

3BEA: 

08 

08 

2A 

IC 

3CE2: 

3E 

7E 

3E 

83 

3DDA 

5A 

51 

44 

71 

3AF6 • 

42 

7E 

42 

42 

3BEE . 

08 

IC 

0C 

14 

3CE6: 

3E 

89 

3L 

8E 

3DDE 

33 

71 

64 

DI 

3 AF A. 

22 

12 

0A 

7F 

3BF2 ; 

20 

40 

04 

02 

3CEA - 

3E 

94 

3E 

9A 

3DE2 

0C 

63 

69 

71 

3AFE: 

02 

42 

22 

JF 

3BF6 . 

7F 

02 

04 

40 

3 CLE . 

3E 

A2 

3E 

A7 

3DE6 

79 

41 

49 

51 

3B02 : 

02 

7E 

0A 

0A 

3BFA . 

20 

1 4 

0C 

IC 

3 CF 2: 

3E 

AE 

3E 

B6 

3 DEA 

09 

13 

49 

43 

3B06: 

7F 

0A 

0A 

04 

3BFF: 

3f: 

22 

3C 

80 

3CF6 * 

3 fi 

BA 

3E 

C2 

3DEE 

22 

73 

F9 

14 

3B0A : 

03 

41 

21 

JF 

3C02 • 

00 

00 

24 

3E 

3CFA : 

3E 

C8 

3E 

D0 

3DF2 

79 

73 

13 

49 

3B0E: 

08 

07 

42 

3E 

3C06 : 

20 

00 

24 

32 

3CFE • 

3E 

D7 

3E 

DE 

3DF6 

41 

F9 

01 

42 

3B12: 

02 

42 

42 

42 

3C0A • 

2 A 

24 

00 

22 

3D02: 

3E 

E7 

3E 

EB 

3DFA 

21 

56 

21 

42 

3B.16; 

42 

7E 

02 

IF 

3C0E: 

2A 

2A 

J 4 

00 

3006; 

3L 

F .1 

3E 

F5 

3DFE 

32 

79 

69 

62 

3B J A: 

42 

3F 

02 

4A 

3C J 2 : 

18 

14 

3E 

10 

3Ü0A . 

3E 

FB 

3F 

04 

3E02 

59 

49 

C2 

15 

3B1E: 

4A 

40 

20 

JC 

3C 1 6 : 

00 

2E 

2A 

2A 

3O0L . 

3F 

09 

3 F 

10 

3E06 

71 

79 

42 

49 

3B22: 

42 

22 

12 

2A 

3C1 A . 

12 

00 

18 

2C 

3012; 

3 F 

16 

3F 

IB 

3E0A 

51 

59 

69 

F5 

3B26: 

46 

02 

3F 

42 

3C1E; 

2A 

10 

00 

02 

3D1 6 . 

3F 

1F 

3F 

28 

3E0E 

14 

52 

04 

72 

3B2A: 

4A 

46 

03 

44 

3C22: 

3A 

06 

02 

00 

301 A; 

3 F 

2E 

3 F 

35 

3E1 2 

69 

62 

59 

02 

3S2E : 

20 

10 

0F 

08 

3C26: 

14 

2A 

2A 

14 

3D 1 E ; 

3F 

3C 

3 F 

40 

3E16 

1 1 

F5 

41 

51 

3B32; 

07 

45 

25 

1F 

3C2A; 

00 

04 

2A 

IA 

3D22 : 

3F 

48 

3 F 

4E 

3E1.A 

59 

51 

49 

42 

3B36: 

0A 

4A 

3E 

09 

3C2E: 

0C 

00 

38 

45 

3026; 

3F 

52 

3F 

57 

3E1E 

79 

71 

69 

71 

3B3A- 

08 

07 

00 

47 

3C32- 

46 

3C 

40 

38 

3D2A- 

3F 

5 F 

3 F 

64 

3E22 

Cl 

0B 

79 

71 

3B3E: 

20 

-IP 

04 

45 

3C36. 

54 

56 

55 

18 

302E : 

3F 

6 B 

3F 

70 

3E26 

69 

59 

51 

31 

3B42- 

30 

05 

04 

00 

3C3A: 

38 

55 

56 

54 

3032; 

3F 

74 

3F 

79 

3E2A 

69 

59 

51 

C9 

■ 3B46 . 

7F 

04 

08 

10 

3C3E: 

18 

38 

56 

55 

3036; 

3F 

7E 

3F 

82 

3E2E 

0B 

13 

71 

E9 

3B4A: 

02 

42 

3F 

02 

3C42; 

56 

18 

00 

01 

3D3A ; 

3F 

89 

3F 

8D 

3E32 

4C 

52 

64 

32 

3B4E : 

02 

40 

42 

42 

3C46: 

7C 

01 

00 

38 

3D3E ; 

3F 

92 

3F 

97 

3E36 

C4 

49 

52 

31 

3B52 ; 

42 

40 

4A 

2A 

3C4A- 

46 

45 

46 

38 

3042- 

3F 

9C 

3F 

AC 

3E3A 

41 

49 

51 

E3 

3B56: 

12 

2A 

46 

12 

3C4E. 

38 

45 

44 

45 

3046; 

3F 

B 1 

3 F 

B7 

3E3E 

1 1 

4B 

29 

F 3 

3B5A: 

12 

7B 

0A 

16 

3C52 . 

38 

38 

. 44 

3C 

3D4A ; 

3F 

BC 

3F 

C2 

3E42 

01 

4A 

51 

63 

3B5E • 

40 

20 

10 

08 

3C56: 

54 

58 

3C 

41 

3D4E ; 

3F 

C8 

3F 

CD 

3E46 

' 71 

02 

1 1 

01 

3B62; 

07 

40 

3C 

01 

3C5A: 

42 

20 

PC 

IC 

3D52 : 

3F 

03 

.3 F 

DC 

3E4A 

43 

21 

53 

01 

3B66 ; 

02 

71' 

3F 

44 

3C5E: 

22 

JC 

22 

IC 

3D56: 

3F 

E2 

3 F 

EA 

3E4E 

E3 

4B 

1 1 

74 

3B6A . 

44 

44 

44 

01 

3C62: 

00 

7F 

41 

41 

3D5A ; 

3F 

F 4 

3F 

F8 

3E52 

IB 

C4 

13 

44 

3B6E: 


21 

1 1 

0F 

3C66: 

00 

00 

41 

41 

3D5E : 

40 

05 

40 

0D 

3E56 

69 

IA 

F4 

43 

28 3B72: 

08 

04 

02 

04 

3C6A- 

7F 

00 

55 

2A 

3062; 

40 

19 

40 

25 

3E5A 

21 

53 

E2 

43 



3E5E : 

54 

63 

32 

C3 

3E62: 

02 

4A 

51 

22 

3E66: 

71 

22 

DI 

12 

3E6A : 

C4 

16 

44 

71 

3E6E: 

6B 

12 

73 

E9 

3E72: 

12 

4C 

2A 

F 4 

3E26: 

01 

4B 

52 

62 

3E7A: 

51 

31 

62 

Fl 

3E7E: 

44 

22 

55 

22 

3E82: 

C4 

03 

55 

39 

3E86: 

64 

33 

CB 

49 

3E8A: 

54 

29 

43 

F 4 

3E8E: 

14 

44 

32 

64 

3E92 : 

3A 

D5 

15 

49 

3E96: 

43 

73 

6A 

E9 

3E9A: 

14 

49 

51 

31 

3E9E: 

43 

21 

74 

E9 

3EA2: 

0C 

74 

64 

14 

3EA6: 

C4 

14 

44 

19 

3EAA: 

74 

69 

19 

D4 

3EAE : 

42 

4A 

51 

24 

3EB2: 

31 

42 

12 

E2 

3EB6: 

4C 

64 

3 A 

FA 

3EBA: 

0B 

49 

51 

64 

3EBE: 

09 

75 

79 

C2 

3EC2 : 

01 

4B 

53 

24 

3EC6: 

71 

F9 

01 

4B 

3ECA: 

53 

63 

72 

69 

3ECE: 

09 

C3 

4 A 

53 

3ED2 : 

49 

29 

62 

32 

3ED6: 

C4 

14 

52 

04 

3EDA: 

73 

6A 

13 

D2 

3EDE : 

16 

01 

42 

01 

3EE2: 

32 

64 

02 

73 

3EE6: 

E9 

02 

56 

32 

3EEA: 

FA 

15 

44 

22 

3EEÈ: 

11 

75 

E9 

44 

3EF2: 

14 

21 

E2 

4C 

3EF6: 

51 

64 

32 

41 

3EFA. 

FB 

14 

44 

6B 


3EFE 

: 61 

03 

59 

72 

3F02 

14 

DI 

12 

0C 

3F06 

72 

6B 

E9 

04 

3F0A 

54 

5A 

21 

32 

3F 0E 

73 

E9 

16 

75 

3F 12 

79 

43 

IC 

C4 

3F 16 

16 

44 

73 

6A 

3F 1 A 

E9 

04 

53 

5A- 

3F 1 E 

EA 

1 1 

52 

12 

3F22 

44 

32 

72 

31 

3F 26 

22 

D6 

09 

4A 

3F2A 

52 

63 

33 

FA 

3F 2E' 

04 

59 

63 

14 

3F32 

44 

29 

E2 

0A 

3F36 

01 

79 

71 

64 

3F 3A 

52 

CC 

4C 

52 

3F3E 

2B 

FA 

14 

44 

3F42 

12 

63 

01 

75 

3F 4 6 

79 

Cl 

0B 

49 

3F 4 A 

51 

64 

09 

F6 

3F 4 E 

44 

21 

55 

E2 

3F52 

44 

55 

64 

32 

3F56 

C4 

14 

44 

71 

3F5A 

IB 

42 

34 

2A 

3F 5E 

CB 

12 

54 

03 

3F62 

74 

EA 

49 

54 

3F66 

3 B 

3! 

61 

31 

3F6A 

D6 

0B 

71 

6A 

3F6E 

61 

D6 

44 

55 

3F 72 

64 

F 5 

14 

52 

3F 76 

44 

74 

EA 

42 

3F7A 

4A 

51 

IA 

E2 

3F 7E 

0C 

5A 

32 

DA 

3F82 

15 

49 

42 

79 

3F86 

69 

62 

D9 

52 

3F8A 

3 A 

62 

CC 

02 

3F8E 

4A 

24 

7A 

D6 

3F 92 

04 

62 

0A 

72 

3F96 

DC 

13 

4A 

34 

3F9A 

5A 

C4 

12 

72 


3F 9E 

0A 

62 

7 A 

41 

3FA2 

49 

52 

1 1 

52 

3F A6 

2A 

42 

5A 

61 

3F AA 

69 

F2 

13 

44 

3FAE 

5A 

34 

CA 

04 

3FB2 

12 

5C 

42 

2A 

3FB6 

D2 

02 

56 

7A 

3F B A 

24 

CA 

0C 

52 

3F B E 

62 

2 A 

32 

CC 

3FC2 

1 1 

43 

53 

59 

3FC6 

62 

F4 

1 1 

42 

3FCA 

21 

54 

E9 

14 

3F CE 

49 

42 

71 

6B 

3FÛ2 

C3 

15 

42 

79 

3FD6 

69 

61 

01 

79 

3FDA 

69 

E'2 

12 

51 

3FDE 

4A 

74 

09 

E3 

3F E 2 

l 1 

42 

49 

51 

3FE6 

59 

62 

51 

C3 

3FEA 

13 

71 

79 

41 

3FEE 

49 

51 

59 

61 

3FF2 

29 

CB 

09 

52 

3FF6 

4A 

E3 

12 

79 

3F F A 

41 

49 

59 

61 

3FFE 

59 

49 

41 

79 

4002 

69 

21 

E9 

4B 

4006 

51 

59 

61 

69 

400A 

71 

79 

Cl 

04 

400E 

59 

69 

61 

59 

4012 

52 

49 

12 

79 

4016 

29 

42 

F 3 

03 

401 A 

62 

59 

52 

49 

401 E 

41 

12 

69 

39 

4022 

79 

71 

E3 

03 

4026 

62 

59 

52 

49 

402A 

12 

79 

29 

41 

402E 

79 

71 

E3 

03 

4032 

62 

59 

52 

49 

4036 

19 

49 

79 

29 

403A 

41 

79 

71 

E3 


403E: 

16 

01 

71 

02 

4042: 

51 

29 

32 

F 3 

4046: 

01 

59 

52 

49 

404A : 

11 

49 

79 

31 

404E : 

79 

72 

69 

62 

4052: 

14 

C2 

01 

59 

4056: 

52 

49 

1 1 

5 1 

405A : 

02 

71 

31 

79 

405E : 

72 

69 

62 

14 

4062: 

C2 

04 

61 

59 

4066: 

51 

42 

51 

59 

406A : 

62 

69 

72 

79 

406E : 

49 

1 1 

D2 

09 

4072: 

15 

79 

35 

4A 

4076: 

12 

74 

22 

61 

407A: 

59 

D3 

12 

52 

407E : 

49 

79 

72 

69 

4082: 

59 

0A 

49 

79 

4086: 

72 

69 

D9 

0B 

408A: 

13 

62 

76 

C'2 

408E : 

16 

01 

42 

76 

4092: 

E 2 

01 

41 

01 

4096: 

41 

51 

1 1 

5 1 

409A : 

11 

51 

19 

76 

409E. 

21 

56 

21 

76 

40A2: 

19 

51 

1 1 

5 1 

40A6 : 

1 1 

5 1 

4 1 

01 

40AA : 

41 

39 

64 

31 

4 0AE: 

44 

31 

64 

31 

4032: 

44 

31 

E4 

4 1 

40B6: 

01 

41 

09 

51 

4 08 A: 

1 1 

51 

1 1 

51 

40BE : 

61 

76 

21 

56 

4 0 C 2 • 

61 

76 

21 

51 

40C6 : 

1 1 

51 

11 

51 

40CA : 

44 

31 

64 

31 

40CE : 

44 

31 

64 

31 

40Ü2: 

C4 

0C 

1 1 

59 

40D6 : 

69 

74 

69 

D9 

40DA : 

53 

02 

42 

73 

4 0DE: 

62 

D3 

00 




DÈS LA RENTRÉE SURLESÈCI 



DANÇ I A PFPFFT1 


BUREAUTIQUE 



PC 1151 


programme 

GESCCP 1251 


Ce programme va vous permettre 
de gérer votre compte CCP ou 
bancaire d’une façon plus aisée. 
En effet, on a souvent du mal à 
évaluer rapidement la somme dis- 
ponible sur son compte en fonc- 
tion des sommes non-rentrées. 
Avoir rapidement sous la main un 
extrait de son livre de compte avec 
un contrôle des sommes rentrées 
et non-rentrées est donc souvent 
utile. C’est ce qui vous est offert 
par ce programme. 

ATTENTION lors de l’introduction 
du programme une fois entré la 
MEM est de 1593 octets, et en 
exécution il reste 0 octets. 

Soit l’extrait de livre de compte 
suivant : 


Voyons un peu ces colonnes : 

- une colonne NUMERO de 
l’opération, c’est un numéro arbi- 
traire qui vous permettra de re- 
trouver cette opération en mé- 
moire. 

- une colonne DATE (date de 
l’opération exécutée). 

- une colonne OPERATION qui 
comprend soit le numéro du chè- 
que soit le type de l’opération 
(TCJP, CH. B. C 24/24,...). 

- une colonne INTITULE. 

- une colonne RENTRE LE (date 
du retour de l’opération). 

- une colonne CREDIT. 

- une colonne DEBIT. 

- une colonne RESTE (appa- 
remment mais pas réellement sur 
le compte). 

Comment introduire ceci dans la 
machine (cet extrait représente 
l’ensemble de vos opérations à 
30 partir de l’opération non-rentrée la 


plus ancienne ici ce serait l’opéra- 
tion N° 25). 

Exécutons le programme la PRE- 
MIERE fois par RUN : 

- la machine inscrit INITIALISA- 
TION (on a perdu tout ce que l’on 
avait en mémoire) presser [EN- 
TER]. 

- on nous demande le reste ou 
le total de non-rentrées corres- 
pond au total des rentrées (ici li- 
gne 24 nous avons donc RESTE : 
5 827,97 [ENTER]). 

- il apparaît l’inscription INIT 
O. K. (on peut dès lors débuter le 
programme et avoir jusqu’à 21 
opérations non rentrées en mé- 
moire. Ici il y aura 4). 

Désormais toutes les exécutions 


débuterons par [DEF] [M], il ap- 
paraît alors le MENU suivant : 

1 : ENTREE entrée d’une nouvelle 
opération. 

2 : EDITION affichage de l’extrait 
de compte. 

3 : SORTIE éjection, d’une opéra- 
tion (rentré). 

4 : ETAT états du compte. 

F : IN fin du programme. 

I (n’apparaît pas) 

Nous choisissons 1 l’entrée d’une 
nouvelle opération. Celle-ci se fait 
sous la forme suivante : 

N° (2 caractères) [;] date (5 c.) [;] 
opération (7 c.) [;] intitulé (35 c.) 
[;] crédit ou débit (9 c.). 

Le caractère ; est utilisé comme 
séparateur il ne doit pas apparaître 
dans le texte lui même. Introdui- 
sons cet extrait de compte : 


CH^B^^AU S f C 678°43 

[ENTER] 

L’indication crédit ou débit est 
donnée à l’aide de l’initiale C ou D. 
On attend un peu le temps que ce 
soit remis en forme... 

Et on redemande une entrée : 1 

26 ; 8/03 ; 

0840513; ACHATS; D 342,05 
[ENTER] 

On redemande une entrée : 1 

i m i aÊm mtmxm 21 ; ; ; -, d 300 

[ENTER] 

Cette introduction est particulière. 


En effet cette opération est déjà 
rentrée, on inscrit donc son nu- 
méro, et la somme correspondant 
à cette opération, puis on va sortir 
cette opération de la mémoire : on 
demande une sortie : 3 

\m*: w iua m azm 21 

On sort le petit dernier, c’est à dire 
le n. 27. 

Et on recommence 1... 


Lorsque vous aurez fini d’intro- 
duire cet extrait, vous serez à 
même d’utiliser pleinement ce 
programme, qui désormais 
connaît au jour le jour votre 
compte. 

Eh utilisant la commande I vous 
otiendrez ce listing : 


N" 

Date 

Opération J Intitulé 

Rentré le 

Crédit 

Débit 

Reste 

23 

2/03 

0840512 

LOYER 

5/03 


2 438,12 

6 400,31 

24 

4/03 

TCIP 

EDF/GDF 

4/03 


572,34 

5 827,97 

25 

6/03 

CH. B. 



1 


6 506,40 

26 

8/03 

0840513 

ACHATS 



342,05 

6 16435 

27 

9/03 

C. 24/24 

RETRAIT 

9/03 

pljgiggii 

300,00 

5 864,35 

28 

11/03 

0840514 

CADEAUX 



152,10 

5 712,25 

29 

13/03 

TCP 

TELEPHONE 

13/03 


413,41 

5 298,84 

30 

17/03 

CH. CCP 

REMBOURSEMENT 


2 350,00 


7 648,84 



EDITION DES NON-RENTRES 


25 s 6/03 
ALLOCATIONS 
CREDITS S?S. 

RESTE: -6506. 

26 s 8/03 s 0840513 
ACHATS 

DEBIT: 342. 

RESTE! 6164.' 

28 : 11/03 
CADEAUX 

DEBIT! 152.10 
RESTE: 5? 12. 25 







>'V^ 


38 :■ 17/03 .! CH. CCP 
REHBOURSEMEHT 
CREDIT: 2358.08 

RESTE: 7648.84 

La commande N° 2 (EDITION) 
vous affichera chacune des opéra- 
tions en mémoire par page corres- 
pondant aux lignes éditées sur 
l’imprimante. En lançant cette 
commande vous obtiendrez : 


ï C H . B . 


Sur cette opération vous pouvez 
vous déplacer en utilisant les chif- 
fres allant de 1 à 4 : 

1 : pour retrouver le numéro, la 
date et l’opération 

2 : pour avoir l’intitulé 

3 : pour obtenir la colonne CRE- 
DIT ou DEBIT 


La fonction 
n. 4 est dans ce pro- 
gramme la plus interressante, elle 
vous permet de connaître l’état de 
votre compte. 

Après avoir affiché pendant une 
vous obtiendrez : 


jyco, 4^s U • 


C’est à dire le total des crédits 
non-rentrés (que vous avez perçu 
mais qui n’ont pas encore été en- 
registré sur votre compte) et le to- 
tal des débits non-rentrés. 

En pressant [ENTER] vous ob- 
tiendrez : 


r"64B. B4 I î SX 14„iOb| 


C’est à dire ce qu’il reste sur votre 
compte normalement d’après ce 
que vous avez reçu ou émis et ce 

Contenu des variables : M 


qui reste effectivement aux CCP 
sur votre compte. 

En pressant [ENTER] vous ob- 
tiendrez : 


IL H : U- K. 


Suivant l’état de votre compte l’in- 
dication sera : 


mm 


ra i a i aua 


Tout va bien. 

Risque de découvert si 
les débits rentrent avant 
les crédits. 

Risque de découvert 
certain car vos débits 
sontplus importants que 
vos crédits. 


4 : pour la colonne RESTE. 

Pour passer à l’opération suivante, 
appuyez sur la touche ( + ) et pour 
revenir à l’opération précédente 
sur la touche (-). 

Le changement d’opération s’éta- 
blit sur une même page d’affi- 
chage. C’est à dire que si vous vi- 
sionnez un intitulé et que vous de- 
mandez l’opération suivante vous 
obtiendrez l’intitulé de l’opération 
suivante. 

Le retour au menu s’effectue di- 
rectement soit en appuyant sur la 
touche (F), soit en pressant ( + ) ou 
(-) et que vous dépassiez la limite 
du fichier. 

La fonction n. 3 a été vue plus 
haut, elle permet une mise à jour 
du fichier en éliminant une opéra- 
tion. 


A 

B$ B 

C 

D$ 

E$ 

F 

G 

H 

I 

J 

L 

N 

R$ 

S$ 

T 

ü 

V 

W 

B$ (*) 
N$ (*) 
D$ (*) 
M$ (*) 
1 $ (*) 

C (*, 2) 


Choix 

Touche (ou valeur : INKEV$ VAL$ (B)) 

Choix 

Recherche 

CREDIT ou DEBIT suivant l’opération 
Longueur de la sous-chaîne B$ (1) 

Total des crédits non-rentrés 

Total des débits non-rentrés 

Compteur 

Compteur 

Compteur (I 4- 1) 

Compteur (nombre d’opérations en mémoire) 

Indicateur d’état O.K., *, ALERTE 
Touche (INKEY$) ou test (drapeau) 

Reste (sur votre compte en tenant compte des non-rentrés) 
Total (somme qui se trouve sur votre compte aux CCP) 
Touche (VAL$) 

Retour (W = 120, ligne 120) 

Variable de saisie 
Tableau Numéro 
Tableau Date 
Tableau Opération 
Tableau Intitulé 

Tableau Crédit ( , 0) Débit ( , 1) Reste ( , 2) 


31 


PC 1*51 _______ 

Explications ligne à ligne : 

Menu lignes 10 à 80 

10 et 20 Initialisations 

30 à 80 Affichage du menu et envoie sur le SSP demandé. 

Entrée d’opérations lignes 90 à 290 

90 Test si on n’a pas dépassé la capacité du fichier 

100 Demande de l’opération 

110 Initialisation et vérification partielle de l’introduction 

120 Routine d’erreur . 

130 à 150 Décomposition de la ligne introduite et envoie à un 

160 èt 170 Affectation du numéro 

180 et 190 Affectation de la date 

200 et 210 Affectation de l’opération 

220 et 230 Affectation de l’intitulé 

240 à 280 Affectation du crédit et du débit 

290 Affectation du reste 


Edition sur l’écran lignes 300 à 420 

300 Initialisations 

310 Test de retour au menu 


320 

330 

340 

350 et 360 

370 

380 

390 

400 

410 

420 


Envoie sur le sous-programme affichant la page demandée 

Affichage de la page 1 

Affichage de la page 2 

Affichage de la page 3 

Affichage de la page 4 

Saisie une touche et initialise la variable de choix d’affichage 

Demande d’opération suivante 

Demande d’opération précédente 

Demande de retour de menu immédiatement 

On va en 320 ' 


Sortie d’opérations lignes 500 à 550 

500 Demande de l’opération à sortir 

510 et 520 Recherche de cette opération dans le fichier 

530 Réactualisation de la variable G (ce qui reste aux CCP) 

540 et 550 Remise en forme du fichier 


Etat des comptes lignes 600 à 630 

600 Initialisations et vérifications du compte 

610 à 630 Affichage et gestion de l’alarme 

1 Edition sur l’imprimante lignes 700 à 750 

700 à 750 Impression du fichier 


Ce programme ne gère pas la cas; 
affectation en mode réserve suffit. 


2 ï PR I NT IMPUT tt"CCP":N*< ' 
*>,D*<*),! I t$<* : >, I$(*),C<* 


PROGRAi^E GESTION UE CCP 

10! WAIT : PRINT "INITIA' 
LISATI0NS* ! CLEAR s 
INPUT "RESTE! *5 Tî 11=1 
20SBIM B*<l>*54,Ni<22>* 
2,D$<22)*5,I1*<22>*7, 
I$(22)*25»C<22»2>:N= 
-1! WAIT ! PRIAIT "IN 
IT O.K. "î END 


ette, pour lire et écrire ce fichier une 
La voici ! 

En faisant (SHIFT) (Z) l’erreur 1 se 
produira. En pressant ( ) ou ( ) le 
curseur clignote sur PRINT. En dé- 
plaçant le curseur, il vous suffira 
d’effacer soir PRINT, soit INPÜT 
suivant ce que vous désirez écrire 
ou lire votre fichier sur cassette. 
Amusez-vous bien. l.S. 


30! "H" WAIT 40!W=120! 
PRINT "1! ENTREE 2 

! EDITION" !A=6! GOTO 

40! PRINT "3!S0RTIE 4 

* ïETAT FîIN"!A=5 
50! B$= INKEY* ! IF B*=" 
F" END 


60! IF B*="I" THEN 700 
70! B= VAL B$: IF <B>0> 
AND <B<5) LET A=B 
80! ON A GOTO 90 j 300» 500 
» 680,30» 40 


SSP! ENTREE D OPERATION 

90! IF N>=21 THEN *M 

100: N=N+1 ! INPUT "ENTREE 
<S. 5) ? " 5 Bt < 0 ) 

110îL= LEN (B#<0> ) î I=0i B 
$<D="*:ü=0: IF L>54 
LET 1=64 

120! 1=1 + 1 : IF a>L> AND 

* <I>64) PRINT "ERREUR 

.,."!N=N-l! GOTO "M 

130:D$= I1ID$ <B$<0>,I,1> 
: IF D$=" » " LET C=C+. 
l: IF 05 LET 1=64: 
GOTO W 

140: IF (D*="5"> OR < I >L) 
LET F= LEN <B$<1)):C 
=0(I<=L)+5*a>L): 

ON C GOTO 160» 180,20 
0,220,240 

150:B$<i>=B$a>+D*: GOTO 

168: IF F>2 LET 1=64: 

GOTO W 

170: N$<N)= RlGHTf < " "+ 

B$(l)»2):B$a>=""! 
GOTO W 

188: IF F>5 LET 1=64: 

GOTO W 

190:D$<N)= RIGHTS <" 

" +B$ Cl > » 5 ) : B$ < 1 ) = " " 
: GOTO W 

200: IF F>7 LET 1=64: 

GOTO W 

210: M$(N)= LEFT* <B*<1)+ 
* ' " » 9) : B$( 1 ) 

="": GOTO W 

220:IF F >25 LET 1=64: ' 

GOTO W 

238: I$<N>= LEFT$ <B$<1>+ 

"»25):B$a> = "" 
! GOTO W 

240: IF F>10 LET 1=64: 
GOTO U 

250: D$= LEFT$ (B$<1>,1): 
B$(l)= RIGHT* <B*(1> 
. »F-1) 

260ÜF D$=*C" LET C(N,0> 
= INT < VAL <B$<1)>* 
100>/100!C(N»1>=0! 
GOTO 298 

270! IF DfO"D" LET 1=64: 
GOTO W 

280:C<N* 1)= INT ( VAL (B 
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$<l))*100)/100ïC(N»0 
)=0 

290:T=T+C<N*0)-C(N* 1):C( 

N,2)=T: GOTO 'M 
SSP: EDITION SUR L ECRAN 


S 10: PR INT 'ETAT DES COMP 
TES':R*=*O.K.': IF U 
<H BEEP 2:R«='* 

620: IF <R$='*') AND <H>G 
) BEEP 2: R*« 'ALERTE 


630: WAIT : PRINT 
USING 

* D:'îH: PRINT 'R: *5 
ir T:'îü: PRINT 'ET 
AT:'! R*: GOTO ** 


ccp ■ PTUTTflN IMPRIMANTE 


300: 1*0: A*1 
310: IF (I<0) OR <I>N) 
BEEP 2: GOTO *M 
320: ON A GOTO 330*340*35 
0*370 

330:PRINT ' 'ÎN*<I)Ï' 

: ' 5D$< I) 5 ’ : '!M$<I 
): GOTO 380 

340: PRINT I$<I>: GOTO 38 


700: LPRINT 'EDITION DES 
NON-RENTRES': FOR 1= 
0 TO N: LPRINT ' 

710: LPRINT' *5H*<I)!* 
: * * D$ < I ) * * : 

720: LPRINT LEfT$ <I*(I)* 
24) : D=C< 1*0) +C (1*1): 


E$='CREDIT: " ; IF CCI 
,0)=0 LET E$=' DEBIT 

730:LPRINT E*î USING 
Sttt.tttt'îD 

740: LPRINT ' RESTE:'!C(I 

— 

750 s NEXT I: GOTO *M 



MEM 


c'b^T LA. 
MB\J 

TOUS i£S 

t Ko 


MEV 
sur le 
PC 1251 



La table des mots réserves est sur le PC - 1251 stockée 
de la même manière que sur le PC - 1500. Voyons donc 
tout de même plus en détail cette partie de la mémoire. 


■■min UKÊÊÊÊÊÊÊKHÊÊÊÊ 

358:D=CC I *0>+C< I » 1 >:E$=* 
CREDIT:': IF C<I*8)= 
0 LET E*=' DEBIT: 

360: PRINT E*! USING 

***.«’ »D: GOTO 388 
370:PRINT 'RESTE: '! 

USING *#«#«. «*!C<. 

380:USIN6 : SS= INKEY* :V 
= VAL S$: IF <V>0> 
AND (V<5> LET A=V 
390: IF S$=*+* LET 1=1+1 : 
GOTO 310 

400: IF S LET 1=1-1 : 
GOTO 310 

410: IF S$=*F* THEN 'M 
420: GOTO 320 

tÊÊÊÊÊÊÊ^ÊÊÊÈÈÊÊÊM^ÊÈÈK^È 


SSP: SORTIE D OPERATION 

500: INPUT 'N. (RENTRE LE) 

■MHHHMI 

510: S=-l : FOR 1=0 TO N: 

IF A= VAL N$( I ) LET 
S=I : 1=64 

520: NEXT I: IF S=-l LET 
1=64: N=N+1 : GOTO U 

530: U=U+C(S* 8)-C(S> 1 ) 

540: FOR I=S TO N-l:J=I+t 
: N$ < I ) =N$ ( J ) : D$ < I ) =D 
$<J):M*a)=M$<J):I*< 
I)=I$(J) 

550:C(I*0)=C(J*0):C<I» 1) 
=C(J»1):C(I*2)=C(J*2 
): NEXT I : N=N-1 : 

GOTO 'M 


SSP: ETAT DES COMPTES 

600: G=0: H=0: FOR 1=0 TO 
N:G=G+C<I*0):H=H+C<I 
,1): NEXT I 


Tout d’abord 1 octet qui caracté- 
rise le mot clef précédent dans 
son poids fort et le mot clef sui- 
vant dans son poids faible (lon- 
gueur du mot clef à suivre). 

On trouve ensuite X octets repré- 
sentant en ASCII machine le mot 


clef lui-même (X correspondant au 
poids faible de l’octet, précédent). 
Puis 3 octets qui représentent le 
code machine du mot clef et 2 oc- 
tets donnant l’adresse ou se trouve 
le sous-programme traitant cette 
instruction dans le programme ba- 
sic. 
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PC 1151 _ 

Voici la liste des mots 


clefs du PC 

1251 

: 

AREAD 

(DC) 

5126 

AND 

(31) 

1312 

ABS 

(AA) 

1312 

ATN 

( A5) 

1312 

AS N 

(A3) 

1312 

ACS 

(A4) 

1312 

ASC 

(7D) 

1312 

BEEP 

(DB) 

5140 

CONT 

XB4) 

5175 

CLEAR 

(05) 

5198 

CLÛAD 

(B?) 

7187 

CSAVE 

(B6) 

6EFD 

CHAIN 

(D9) 

7489 

C. ... 

(9D) 

1705 

COS 

(Al) 

1312 

CHR. 

(83) 

1312 

COM. 

(39) 

1312 

CALL 

(C9> 

51 AF 

DIM 

(CA) 

51D1 

DEGREE 

(C4) 

527D 

DEG 

(AC) 

7FC1 

DMS 

(AD) 

0A3A 

DATA 

(CB) 

5126 

DEBUG 

(B5) 

1705 

END 

(D4) 

5287 

EXP 

( A6) 

1312 

ERROR 

(96) 

1705 

FOR 

(Dl) 

5291 


GOTO 

<D7> 

5326 

GOSUB 

<B8> 

534C 

GRAD 

<C0> 

5372 

INPUT 

<C2) 

537E 

IF 

< B 8 > 

541D 

INSTAT 

<BF) 

6D0F 

INT 

< A9> 

1312 

INKEY. 

<8A> 

1312 

KEY 

<99 > 

6D.95 

LIST 

<B3> 

546E 

LLIST 

< BC > 

7AFD 

LPRINT 

<9F) 

7C27 

LOG 

< A8> 

1312 

LN 

< A7) 

1312 

LET 

<B2> 

54E3 

LEN 

<7F) 

1312 

LEFT. 

<80 

1312 

MEM 

<B2> 

1312 

MERGE 

<B8) 

719D 

MID. 

<8E) 

1312 

NEXT 

<B5> 

5559 

NOT 

< 8 6 ) 

1312 

NEW 

<B1 ) 

55E4 

ON 

<CO 

563C 

0 . . . 

<90 

1705 

OUTSTAT 

<BE) 

6D2F 

OR 

<85) 

1312 

OFF 

<CB> 

1705 

PR INT 

<C1) 

56A9 

PASS 

<BB) 

5760 


PI 

(BD) 

1312 

PEEK 

(AF) 

1312 

POKE 

(CE) 

57DC 

PAUSE 

(DA) 

5745 

RUN 

(B0) 

597À 

RETURN 

(DE) 

58 1E 

READ 

(CF) 

58EC 

RESTORE 

(DF) 

583B 

RND 

(AE) 

1312 

RANDOM 

(93) 

5865 

RIGHT. 

(8D) 

1312 

RADIAN 

(C3) 

588C 

REM 

(D3) 

5A71 

ROM 

(9E) 

6DA2 

STOP 

( D6 ) 

5896 

SQR 

(87) 

1312 

SIN 

( A0) 

1312 

SGN 

(AB) 

1312 

STR. 

(3B) 

1312 

STEP 

(91) 

1705 

SETCOM 

(9B) 

6B75 

THEN 

(92) 

1705 

TAN 

(A2) 

1312 

TRON 

(B9) 

589A 

TROFF 

(BA) 

589E 

TO 

(90) 

1705 

US ING 

(DD) 

58A2 

VAL 

(7E) 

1312 

WAIT 

(95) 

58C3 


La MEV se répétant tout les 2 Ko à 
partir de &8000 on en déduit que 
la MEM se termine en &7FFF et 
que par conséquent la MEM, fai- 
sant 24 Ko (SHARP dixit), com- 
mence en &2000 (????). 

Une MEM faisant au minimum 2 Ko, 
un petit test nous montre que 
nous avons dans la MEM : 
de &0000 à &7FFF 
de &C800 à &CFFF 
de &D800 à &E7FF 
et de &F000 à &F7FF 

De ce fait, nous avons de la MEV : 
de &8000 à &C7FF 
de &D000 a &D7FF 
de &E800 à &EFFF 
et de &F800 à &FFFF. 


Si toute la MEV était utilisée, nous 
pourrions donc avoir au maximum 
17 Ko de mémoire programme. 
Une extension de 16 Ko est donc 
envisageable assez facilement (sur 
le plan amateur). 





Elle se situe en &B800 et ocuppe 
48 octets. Les touches program- 
mées s’inscrivent dans l’ordre 
dans lequel elles ont été program- 
mées. 

Le contenu des touches inscrit en 
code machine est précédé du 
code de la touche à laquelle il est 
affecté. 

Le code de la touche correspond : 

- au code machine +&90 si la 
touche est une lettre 

- au code machine +&C0 si la 
touche est = 

- au code machine +&E0 si la 
34 touche est SP 


Soient les codes suivants (dans 
l’ordre alphabétique) 


A 

El 

Code machine 

+&90 

B 

E2 

Code machine 

+&90 

C 

E3 

Code machine 

+&90 

D 

E4 

Code machine 

+&90 

F 

E6 

Code machine 

+&90 

G 

E7 

Code machine 

+&90 

H 

E8 

Code machine 

+&90 

J 

EA 

Code machine 

+&90 

K 

EB 

Code machine 

+&90 

L 

EC 

Code machine 

+&90 

M 

ED 

Code machine 

+&90 

N 

EE 

Code machine 

+&90 

S 

F3 

Code machine 

+&90 

V 

F6 

Code machine 

+&90 


X F8 Code machine +&90 

Z FA Code machine + &90 

= F4 Code machine + &C0 

SP Fl Code machine 4-&E0 


En otant les codes des touches, il 
y a &30 octets utilisateurs dans la 
zone réserve. 

Voir exemples page suivante. 

On peut aisément programmer les 
touches de fonction par POKE. 
Tout comme sur la PC 1500, on a 
les touches de réserve à lance- 
ment automatique par fa) 


— Exemple 1 

E880 E 1 5 1 51F3 6363 E454 
.A A . SS . D 
B808 54E6 5656 E757 57E8 
D . FF .G G . 
B810 5858 EA5A 5AEB 5B5B 
HH .J J . K K 
B818 EC5C 5CF4 3434 FA6A- 
. L L . S $ .2 

B820 6AF8 6868 E353 53F6 
Z . H . C C . 
B828 6666 E252 52EE 5E5E 
V V . B B . N K, 


LA 


Le programme référencé est pré- 
senté ci-contre. 

Le programme de “DUMP” pos- 
sède en plus la ligne : 

1 : REM “BONJOUR” 

Ce programme est stocké à partir 
de &B831 début. de la RAM utilisa- 
teur. 

Le numéro de ligne doit être à 

1000. 

La machine reconnaît une ligne 
par le fait que le premier octet re- 
présentant le numéro de ligne a 
toujours E pour poids fort. 

Le numéro maximum est 999 et 
est codé : 

E9 99 
Ligne 10 E0 10 

Ligne 153 El 53 

Il n’y a pas d’octet représentant la 
longueur de la ligne. 

Le programme est clos par un 
&FF et le code de fin de ligne est 
&00. Les mots BASIC sont codés 
suivant la table présentée précé- 
demment. Le reste n’est pas codé 
en ASCII mais en code machine, 
(voir tables) 

Exemple : 

10 INPUT “A : ” 
B031 : E0 10 C2 12 51 1D12 


Attention : La RAM se trouve 
dans la version de 
base en B831 (47153). 
Les 2 premiers Ko se 
retrouvant tous les 2 
Ko à partir de &8031. 


Dans l’ordre 

Z: 

ZZ 

A: 

AA 

H ; 

HH 

X: 

: XX 

S: 

SS 

J: 

JJ 

C 

: CC 

D 

DD 

K: 

KK 

V: 

W 

G 

GG 

L: 

LL 

B 

: BB 

G 

GG 

= 

: = = 

N 

:NN 


Dans l’ordre 
A : RUN 

M : POKE &B800,& 

Z : PEEK (&C500 - (00 +1) 
* ( 00 + 1 )* 00 - 6 ) 


i 


—Exemple 2 

B 80 8 E1B0 iEEB CEI F 5248 
. . . . . . B 8 

B808 4048 1 B 1 F FA AF 301F 
0 8 ,. . . 

B 8 1 0 5345 5448 3638 4840 
C 5 D 0 t: 8 0 

B818 3541 .31 37 3840 4035 

£ 1 î C 8 8 

B820 4131 3748 4836 4631 

1 ! 2 8 8 & 6 ! 

B y Z y 8000 0080 8800 8000 


LIGNE BASIC 


Programme de DUMP 
mémoire 

Ce programme traduit F ASCII en 
code machine pour l'alphabet et 
les chiffres uniquement. Pour les 
autfes caractères, ils les symboli- 
sent soit par un caractère erroné, 
soir par un point. 

10 STNPU 7 v 3 DEPART ? v ;a 
ARRIVEE ? V ÎB:C*B 
-A: DIM B*(l>*24 

28: FOR 1=0 TO C-l STEP 

3:ui=A+T:Bi(0) = Mv 5B$( 

l)= v V :X=U: 

GOSUB V C4 V :B*(0)=B*< 
8>+ v v : FOR J=0 TO 7 
STFP 2 

38: P= PEEK CU+,n*256+, 
PEEK (U+J+t ) : X=P: 
GOSUB V C4 V :B*<0>=B*( 


8 > + v , - , :B$<l}=B$<l> + v 

40SNEXT J: LPRINT 

ÎBSCO: NEXT T s END 
50:*C4 v V= INT (X/256): 
GOSUB V C2 V : GOSUB V C 
H M ! V=X-V*256: GOSUB 
V C2 V : GOSUB V CH V : 
RETURN 

68 : v C2 v V= INT <V/16):Z= 
V - V + 1 6 : B$ ( 0 ) =B$ ( 8 ) + 
CME* <Y+&30+(Y>9)*7:> 
+ C HE* (Z+:?r30+i'Z>9)* 
7): RETiJRN 

7 0 : f: M TF lü=X RETURN 
80: P=V-t6: IF (P>3n 
AND < P<97) LET P*= 
CNE* P: GOTO 100 
98:P*='\ v 

188: B$< 1 >=B$C 1 >+P*+ v M : 
RETIJRN 





■DUMP d’un programme Basic 


h 

% . 

ui 

! 

3 1 ‘ T) 

6834 

î 

HH 

X S 

2 

5344 

120 

m 

C 4 

MRHI 

■fl 

3134 

521.8 

0 

1 $ 

3 . 

5 

12\t 

120 


tC 5218 3841 


5012 5344 1286 3409 


X ( 2 5 6 ! . 

2 5342 120 118 12 


VS X 


V c 

2 5 6 . 

* • 

5342 

1.20 D812 

5358 

C 2 

* « * « 

C M 

120 

wm E060 

1253 


S V % 


L’AFFICHEUR 


Les indicateurs 

Tous les indicateurs sont repré- 
sentés par les digits de 2 octets 
aux adresses : 

F83C 
SS> F83D 

F83C |? | ? 1 ? | ? 1 DE f- G | P IDEFI 

Bit N" 7 6 5 4 3 2 1 0 

F83D |? | ? | ? | Ml E iRADlSHlFTjBaSŸI 

Bit N" 7 6 5 4 3 2 1 0 


Ils servent de tests 
si un bit est à 1, 
alors la fonction 
est vraie. 




'fiGAJOüZ 













LOGO HAUTE RESOLUTION 

En Français, à partir de 6 ans. 

Utilise des PRIMITIVES (mots réserves du langage). 

Admet la création de PROCEDURES, avec ou sans paramètre. 

Une ligne d’instructions est une phrase constituée de mots suivis 
ou non d’une constante (écrite en chiffres) ou d’une variable 
(écrite en lettres). 

Chaque mot est obligatoirement séparé de ses voisins et des 
variables et/ou constantes par un blanc. 

La phrase se termine obligatoirement par un point final, et ne 
dépasse pas 160 caractères. r 

ATTENTION! Les entrées sont faites sous INPUT, la touche 
BREAK est a éviter... (retaper alors RUN). 

Un dessin trop long peut être interrompu par BREAK durant son 
exécution. 

L’éditeur est celui du MZ. 


Description et syntaxe des primitives 


(1) 

ALLUME 

pas de paramètre 

donne une trace par LINE. 

(2) 

ETEINS 

pas de paramètre 

permet un déplacement sans trace ou d’effacer une 
trace par BLINE. 

(3) 

AVANCE 

un paramètre 

dans les limites de l’écran. 

(4) 

RECULE 

un paramètre 

fait faire demi-tour, puis avancer. 

(5) 

DROITE 

un paramètre 

fait pivoter de n degrés dans le sent des aiguilles d’une 
montre. 

(6) 

GAUCHE 

un paramètre 

fait pivoter dans le sens inverse. 

(7) 

REPETE 

un paramètre 

répété n fois la suite des instructions comprises entre 
le paramètre et le point final, (une seule fois dans le 
cas des procédures). 

(8) 

KLAXONNE 

un paramètre 

fait retentir n fois 2 bips. 

(9) 

EFFACE 

pas de paramètre 

efface l'écran graphique, replace au centre, angle à zéro. 

(10) 

AÜREVOIR 

pas de paramètre 

revenir au basic, écran standard, clefs reprogrammées. 

(11) 

PLACE 

para 1 - para 2 

place (SET) à la position donnée angle à zéro. 

(12) 

APPRENDS 

nom de procédure 

pour déclarer une procédure avec ou sans paramètre. 

(13) 

CORRIGE 

nom de procédure 

réaffiche la ligne d’instructions correspondante et 
permet la correction avec l’éditeur MZ. 

(14) 

IMPRIME 

pas de paramètre 

donne la liste des procédures déjà déclarées. 

(15) 

OU 

pas de paramètre 

répond par la position actuelle. 



ne pas mettre les guillemées (ici le point d’interro. devient PRINT...) 

Procédures — « - - — — 

Syntaxe : NOM Le nombre des procédures est limité à 6 en fait 

ou par la taille mémoire (< 12k), mais rien n’empêche de 

NOM (para 1; para 2 ;... para 5) modifier NB dans l’initialisation et l’erreur correspondante. 37 


riz 80 


Même remarque pour le nombre 
de paramètres limité à 5 ... 

Les procédures s’emboîtent, mais 
sans chercher de finesse, et même 
s’auto-emboîtent sur 3 niveaux 
(attention : erreur 11 du basic re- 
lancer par RUN) 

Elles sont ou sans paramètre : des 
constantes lors de la 
définition, 

ou avec paramètre : 5 
au plus, repris dans la 
définition, et remplacés 
dans l’utilisation par 
une constante. 

Remarques 

Les 10 premières clefs sont pro- 
grammées dans l’ordre des noms 
des 10 premières primitives. 

En fin de cession ces clefs sont 
réinitialisées à votre goût avec les 
lignes 65 100 à FIN. (j’ai laissé les 
miennes). 


Exemples 

ALLUME AVANCE 10 DROITE 32 AVANCE 30 GAUCHE 142 RECULE 100. 

EFFACE REPETE 4 AVANCE 50 DROITE 90 KLAXONNE 1. 

EFFACE REPETE 10 ALLUME AVANCE 50 ETEINS RECULE 50. 

APPRENDS CARRE. 

REPETE 4 AVANCE 57 GAUCHE 90. 

CARRE DROITE 90 CARRE. 

APPRENS ETOILE (NOMBRE; LONGUEUR ;ANGLE). 

REPETE NOMBRE AVANCE LONGUEUR GAUCHE ANGLE. 

PLACE 10-72 ETOILE (5; 83; 144). 

APPRENDS COTE. 

DROITE 120 AVANCE 73 COTE. 

COTE. 


J’appelle ici paramètre : 
soit une consbante en chiffres, 
soit une variable en lettres. 

Angle nul : direction vers le haut. 
La tortue n’est pas représentée, 
avec 1 seule carte graphique elle 
effacerait les traces précédentes, 


mais avec la seconde carte, c’est 
tout à fait réalisable. 

Le répertoire des PRIMITIVES peut 
être étendu, c’est assez structuré 
pour (pas de GOTO). 

Alain DUBOIS 
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5 REM ) 

20 GOSUB 1 00: REM I 
30 GOSUB 1000 : REM MMIMa 
90 END: 

ÎOO REM miMlUMU mUfflin ■ 

102 NB=0 : REM INITIALISATION DU Nb DE PROCEDURES 

103 NP=15* REM Nb DE PRIMITIVES 
105 DSA= 1 :RT=1 

110 DIM PM* (NP) » PR* (5) » MOT* (40) » TEXTE* < , , NOT* (40) , PARA* (5, 5) , PARA (5, 5) , NA (5) 
115 RESTORE 120: FOR 1=1 TO NP: READ Ph*(I):NEXT I 

1 20 DATA REPETE , AVANCE , RECULE , DRO I TE , GAUCHE , KLAXONNE , ALLUME , ETE I NS , EFFACE , APPRE 
NDS , AUREVO I R , CORR I GE , I MPR I ME , PLACE , OU? 

122 DEF KEY < 1 ) =* 

123 DEF KEY (2) =* 

124 DEF KEY (3) = * 

125 DEF KEY(4>=* 

126 DEF KEY (5) = * 

127 DEF KEY<6>=* 

128 DEF KEY (7) = # 

129 DEF KEY<8>=* 

130 DEF KEY (9) = * 

131 DEF KEY (10)=* 

135 DEF FNA < Z ) =Z— INT ( Z/360 ) *360 
150 X 1=160: Y 1=100 

155 DEF KEY ( 1 ) =ALLUME 

156 D=4480: 60SUB 300 

157 DEF KEY (2)=ETEINS 

158 GOSUB 300 

159 DEF KE Y ( 3 ) =AVANCE 

160 GOSUB 300 

161 DEF KEY ( 4 ) =RECULE 

162 GOSUB 300 

163 DEF KEY (5) = DROITE 

164 GOSUB 300 

165 DEF KEY (6) = GAUCHE 

166 GOSUB 300 

167 DEF KEY (7) = KLAXONNE 

168 GOSUB 300 

169 DEF KEY ( 8 ) = REPETE 

170 GOSUB 300 

171 DEF KEY (9) = EFFACE 

172 GOSUB 300 

173 DEF KEY < 10)= AUREVOIR .1 
175 D=0 

200 REM .WatMMW* 

205 PR INT CHR* (6) 

230 CONSOLE R,C80 ,S19,23 
240 GRAPH I1,C,01 
250 RETURN 

310 FOR I =D TO D+15 

320 IF PEEK < I ) = 1 3 THEN POKE I,32:P0KE I+l , 13: D=I+2: RETURN 
340 NEXT I 
720 RETURN 

1005 FOR LI=1 TO 2 STEP 0 
1010 PRINT: INPUTR* 

1020 L=LEN (R*) : D=1 : A=0 
1030 FOR 1=1 TO L 
1040 C*=MID*(R*, 1,1) 

1050 IF C*=" " THEN A=A+ 1 : MOT* ( A ) =M I D* < R* , D, 1 -D ) : D=I + 1 

1060 NEXT I : D=0 

1070 MOT * ( A+ 1 ) =R I GHT * < R* , 2 ) 

1075 IFMOT* (A+l ) < >" ."THEN ER=ll: GOSUB 12000: NEXT LI 
1080 DEP= 1 : DRA=0 
1085 RE =1 

1090 FOR RP =RE TO 1 STEP -1 

1100 FOR I =DEP TO A 

1105 IF MOT* (I )="'■ THEN NEXT I 

1110 GOSUB 2000 : IF DSA=0 THEN NEXT LI 

1115 IF MOT * < I + 1 > = " . " THEN RETURN 

1 120 NEXT I 

1122 IF DRA =3 THEN NEXT RP 
1125 CURSOR 0,23: NEXT LI 
1150 RETURN 
2000 I 

2010 FOR J=l TO NP 
2020 IF MOT * < I ) =PM* ( J ) 

2030 NEXTJ 

2040 FOR J=0 10 NBPROCEDURE- 


THEN DSA=l: GOSUB 3000: RETURN 


2041 MO=LEN (MOT* ( I ) ) : PR=LEN (F'R* ( J ) > 

2042 L=— ( MQ< PR ) *MO-(PR<=MO) *PR 

2050 IF <L< >0) * ( LEFT* (MOT* ( I ) , L) =LEFT* (PR* ( J ) , L) ) THEN NO=J : DSA= 1 : GOSUB 10000: R 
ETURN 

2060 NEXT J : J=0 

2065 1F STR* (VAL (MOT* ( I ) ) ) =MQT* ( I ) THEN ER=12: GOSUB 12000: PRINT MOT* ( I ) : RE TIJKN 

2070 ER=23: GOSUB 12000: PRINT MOT* ( I >;: ER= 1 : GOSUB 12000: RETURN 

3000 REM iiaa*iaaMa«iiMaa>an»i«iaBi 

3002 FOR G0= 1 TO 2 STEP O 

3004 IF MOT* (1+1)="" THEN 1 = 1 + 1: NEXT GO 

3010 ON J GOSUB 3501,3502,3503,3504,3505,3506,3507,3508,3509,3510,3511,3512,351 
3 ,3514 ,3515 : RETURN 

3501 REM REPETE: GOSUB 4000 : RETURN 

3502 REM AVANCE: GOSUB 5000 : RETURN 

3503 REM RECULE : ANGLE=FNA ( ANGLE+ 180 ): GOSUB 5000: RETURN 

3504 REM DROITE: GOSUB 5600 : ANGLE=FNA (ANGLE-VAL (MOT* ( I + 1 )>): 1 = I + 1 : RETURN 

3505 REM GAUCHE : GOSUB 5600 : ANGLE=FNA (ANGLE+VAL (MOT* < I + 1 ))>: 1 = 1 + 1 : RETURN 

3506 REM KLAXON: GOSUB 4100 : RETURN 

3507 REM ALLUME :LUME=l: SET XI, Y 1 : RETURN 

3508 REM ETE INS: LUME=0 : RETURN 

3509 REM EFFACE: GRAPH C: X 1= 160: Y 1 = 100: RESET XI, Y 1 : ANGLE=C: RETURN 

3510 REM APPRENDS: GOSUB 6000: RETURN 

3511 REM AUREVOIR: GRAPH 00: CONSOLE N, SO, 24: CURSOR |~ I ~ r f T I IT | (Tl II ■■■■■! 

: USR (*517) : GOSUB 65100: END 

3512 REM CORR IGE: GOSUB 7000: RETURN 

3513 REM IMPRIME: GOSUB 7500: RETURN 

3514 REM PLACE : GOSUB 8000: RETURN 

3515 REM OU: PRINT: PRINTPOSH; ; STR* (POSV) : RETURN 
3900 RETURN 

4000 REM aaaa^a 

4002 IF NA < NO ) < >0 THEN GOSUB 11500 

4005 IF VAL (MOT* ( 1 + 1 > ) =0 THEN F'RINT:CURSOR 2 , 23: F'R INTMOT* ( I ) ; : EF:=2 : GOSUB rjnnn: 


RETURN 

4010 DEP=I+2 

4020 RE=VAL (MOT* (1 + 1) ) : 1 = 1 + 1 

4030 DRA=3s RP=RE 
4050 RETURN 

4102 IF NA ( NO ) < >0 THEN GOSUB 11500 

4110 IF STR* ( VAL ( MOT *(I + 1) ) )< >MOT * ( I + 1 ) THEN PRINT:CURSOR 2,23:PRINT MOT* ( I ) 
R=2: GOSUB 12000: RETURN 

4140 FOR KL= 1 TOVAL (MOT* ( I +1 )): USR (*OEBE) : USR (*OEBE) : USR (*051 1 ): NEXT KL: 1=1 

4150 RETURN 

5000 rem mm naa 

5005 GOSUB 5600: IF DSA=0 THEN RETURN 
5010 DISTANCE=VAL (MOT* ( 1+1 > ) 

5020 A2GLE=ANGLE*if/180 

5030 X = X 1+DISTANCE*SIN (A2GLE— if) 

5040 Y=Y 1 +D I STANCE *COS ( A2GLE-tf ) 

5045 IF ( X<0) + ( Y<0) + ( X >319 ) + ( Y>199) THEN ER=20*G0SUB 12000:RETURN 

5050 GET A*: IF A*< >" " THEN IF ASC(A*)=11 THEN RP=1:I=A 

5060 IF LUME=1THEN L INEX 1 , Y1 , X , Y 

5065 IF LUME=OTHEN BL INEX 1 , Y1 , X , Y 

5070 X 1 = X s Y1 =Y 

5080 1=1+1 

5090 RETURN 

5602 IF NA (NO) < >0 THEN GOSUB U50Q 

5610 IF STR* (VAL (MOT* (I+l) ) ) < >MOT* ( I + 1 ) THEN PRINT: CURSOR 2,23: PRINT _MU1*<1 
ER=3: GOSUB 12000 
5615 RETURN 


6002 IF RIGHT* (MOT* ( I+l ) , 1 ) =" ) " THEN MOT *=MOT * ( I + 1 ) : NO=NB : GOSUB 110O0:lF DSA= U 
THEN RETURN 

6005 IF NB=6 THEN PRINT: ER= 13: GOSUB 12000: RETURN 
6010 IF lOl THEN PRINT: ER= 14: GOSUB 12000: RETURN 
6015 IF MOT* (1+1)=" ." THEN PRINT: ER= 16: GOSUB 12000: RETURN 

6020 IF STR* (VAL (MOT* (I+l) ) >=M0T*(I+1> THEN PRINT: ER= 15: GOSUB 12000: RETURN 
6030 FOR K=0 TO NB -1 

6032 IF MOT * ( I + 1 ) =PR* ( K ) THEN PRINT: ER=23: GOSUB 1 2000* PR INTMOT* ( I + l ) ; *ER=4:G0SU 
B 12000: RETURN 
6034 NEXT K 

6036 FOR K=1 TO NP 

6037 IF MOT » ( I + 1 ) =PM* ( K ) THEN PRINT:CURSOR 0,23*PRINT MOT* ( I + 1 ) J l ER= 5*G0SUB 12 
OOO* RETURN 

6038 NEXT K 

6040 PRINT CHR* (6) 

6045 ER=22* GOSUB 12000: PR INT MOT* ( I + 1 ): PRINT 
6047 FOR G 1=1 TO 2 STEP O 
6050 INPUT ; S* 



6U55 IF RIGHT*(S*, 1 >< . . " THEN ER=li: GOSUB 12000! NEXT 61 

6060 PR I NT ! ER=24 s GOSUB 1 2000: PR INTMOT* < I + 1 > 5 : ER=6: BOSUB 12000 s PR INT 
6070 PR*(NB)=M0T*(I+1>:TEXTE*(NB)=S*:S*="":DSA=1 ! 1 = 1 + 1 :NB=NB+1 

6100 RETURN 

7010 IF K >1 THEN PR INT: ER=17: 60SUB 12000: RETURN 
7020 FOR K*0 TO NB -1 

7025 IF MOT* (1 + 1K> PR*<K> THEN NEXTK: PR INT: ER= IB: GOSUB 12000: RETURN 
7030 PRINTCHR* (6) ? 

7035 ER=7: GOSUB 12000: PRINT 
7040 PRINTTAB (2) ; TEXTE* (K) 

7050 PRINT CHR*<5) : INPUT TEXTE* <K> 

7100 DSA= 1 : 1 = 1 + 1 
7200 RETURN 

7510 IF IOl THEN PRINT : ER= 1 7 : GOSUB 12000: RETURN 
7520 IF NB=0 THEN PRIN I": ER=19: GOSUB 12000: RETURN 
7525 PRINT CHR*(6) 

7527 ËR=8: GOSUB 12000 
7530 FOR K=0 TO NB-1 
7535 PRINT PR* (K), 

7540 NEXT K 
- 7550 DSA= 1 : I=i+1 
7600 RETURN 
8000 REh 
8010 1=1+1 

8020 LL=LEN (MOT* ( I ) > 
i FOR U=1 TO LL 


THEN NEXT U: ER=21 : GOSUB 12000: RETURN 


8030 

8040 IF MID*(MOT*(I> ,U, IX 
8050 X 1=VAL (LEFT* (MOT* ( I > ,U~1> > 

8060 Y 1 =VAL < R I GHT* ( MOT* ( I ) , LL-U ) ) 

8065 SET X 1 , Y1 : ANGLE=0 
8070 RETURN 

10005 IF R I GHT * < MOT *(I)»1)=")" THEN MOT*=MOT* < I ) : PAR- 
HEN RETURN 

ÎOOIO I 1 = I : Al =A : CURSOR 0,0 : PR I NT " " +STR* ( I ) + " <- " +STR* ( A ! 

10015 FOR P=1 TO II: MOT* ( P ) 

10020 FOR P= 1 TO ftl-Il 

10030 NOT* ( P ) =MOT* (P+ 1 1 ) : MOT* (P+I 1 ) =" " 
lu040 NEXT P 
10045 R*=TEX TE* (J ) 

10050 DF‘R=2 
10055 RT=2 
1U060 REM 


GOSUB 1 1000: IF DSA=0 T 


10120 L=LEN(R*> :D=1:A=0 
10130 FOR 13=1 TO L 
10140 C*=MID* (R*, 13,1) 

10150 IF C*=" *' THEN A=A+1 : MOT* (A) =MID* (R*, D, I3-D) :D=I3+1 

10160 NEXT 13: D“0 

10170 MOT* (A+l ) =RIGHT* (R*, 1 ) 

10180 DEP= 1 : DRA=0 
10183 RE =1 

10190 FOR RP =RE TO 1 STEP -1 
10200 FOR I2=DEP TO A 

10205 1 = 12: IF MOT*<I>="• , THEN NEXT 12 

10210 GOSUB 2000 : 12=1: IF DSA=0 THEN RETURN 
10220 NEXT 12 

10222 IF DRA =3 THEN NEXT RP 
J 0250 REM 


10900 REM a»tllBa«iMIBWa—iMMII«l*M 

10905 FOR P=1 TO A: MOT* (P) NEXTP 

10910 FOR P=1 TO A 1 - 1 1 +1 

10920 MOT* (P+ Il ) =NQT* (P) : NOT* (P) ="" 

10930 NEXT P 
10940 A=A 1 : 1 = 11 
10945 RT=1 
10950 RETURN 

uooo rem ina»HKiaaimiaiaBian3iaa 

11005 FOR V= 1 TO LEN (MOT* ) -1 

11010 IF MID*(MOT*,V, !•)<>" ( " THEN NEXT V: PRINT; : ER=25: GOSUB 12000: RETURN 


11020 
11030 
11040 
11045 
11050 
1 1060 
11 100 
11200 
1 1 205 
11210 
11220 
11500 
11510 
11520 
11530 
12000 
12010 
12020 
12030 
12040 
12050 
12052 
12055 
12060 
12101 
12102 

12103 

12104 

12105 

12106 

12107 

12108 

12109 

12110 
12111 
12112 

12113 

12114 

12115 

12116 

12117 

12118 

12119 

12120 
12121 
12122 

12123 

12124 

12125 
.J 2 126 
65000 
65005 
65010 
65015 
65017 
65020 
65025 
65050 

65099 

65100 

65101 

65102 

65103 

65104 

65105 

65106 

65107 

65108 

65109 

65110 


NA ( NO > = 1 : V 1 =V 

FOR W=V TO LÈN (MOT*) -1 

IF M I D* ( MOT *»W, 1>="; " THEN GOSUB 1 1200: V=W: NA (NO) =NA <N0) +1 
IF NA ( NO > >5 THEN ER=26: GOSUB 12000: RETURN 
NEXT W 
GOSUB 11200 


RETURN 
REM I 

P*=M I D* ( MOT* , V+ 1 , W- 1 -V ) 

IF J=10 THEN PARA* (NO, NA (NO) ) =P*: MOT* ( 1+1 ) =LEFT* (MOT*, Vl-1 
PARA ( NO , NA ( NO ) ) =V AL ( P* ) : RETURN 

FOR U=1 TO NA (NO) 

IF MOT* ( 1 + 1 ) < >PARA* (NO, U) THEN NEXT U: RETURN 
MOT* ( I + 1 > =STR* ( PARA ( NO , U ) > : RETURN 

RESTORE 12101 

FOR E=1 TO ER: RE AD MG*: NEXT E 
IF ER> 10 THEN CURSOR 2, 23: PRINT" " ; 

PRINTMG*; " "; 


RETURN 


DSA=- ( ER=6 ) - ( ER=7 ) - ( ER=22 ) - ( ER=23 ) - ( ER=24 ) 

IF ER=12 THEN RETURN 
IF DSA=0 THEN PRINT 
RETURN 

DATA " n'a pas ete definie. “ 

DATA " combien de fois ?" 

DATA " de combien ?" 

DATA " est déjà connue !" 

DATA " est déjà le nom d’une primitive: tu ne peux l’utiliser ." 
DATA " mais je n’ai pas corrige les -erreurs éventuelles ... " 

DATA Recommence en corrigeant : 


DATA Voici les noms des procedures déclarées : 


DATA"#" 


DATA "#" 

DATA Tu as oublie le point final . 

DATA Tu ne m'as pas dit quoi faire de 
DATA plus de place... desoie ! 

DATA Ce n’est pas l’endroit pour déclarer une procedure . 

DATA II faut attribuer un nom à une procedure et pas un numéro . 

DATA II faut donner un nom a une procedure . 

DATA Ce n’est pas l’endroit pour une telle demande . 

DATA Je n’ai pas trouve... desoie! 

DATA Aucune procedure n’a encore ete declaree ! 

DATA Attention ! !! ton dessin débordé de l’écran... revoies tes mesures . 


DATA Position mal definie . 


DATA Explique-moi 
DATA La procedure 
DATA J’ai compris 

DATA Erreur dans la déclaration des paramétrés . 

DATA. Nombre xle paramétrés limite a 5 ! . 

FOR M0=1 TO A: PRINTMOT* (MO) j "F" : NEXT MO 
FOR M0=0 TO NB-1 : PRINTPR* (MO) ; "4" : NEXT MO 
FOR M0=1 TO Q-T :PRINT NO* (MO) ; "#" : NEXT MO 
FOR N=0 TO 5 

FOR M0=1 TO NA (N) : PRINTPARA* (N, MO) ; " : =" j PARA (N, MO) , : NEXT MO: PRINT 
NEXT N 
STOP: REM 

rem MMinMiïwwnenifiiam a 

DEF KEY ( 1 ) =RUN 

DEF KEY ( 2 ) =CONSOLE C401 

DEF KEY ( 3 ) =CONSOLE C801 

DEF KEY (4) =L IST 

DEF KEY (5) =LOAD 

DEF KEY (6) =SAVE 

DEF KEY (7) =VERIFY 

DEF KEY (8) = INPUT 

DEF KEY ( 9 ) =? 1 200 1 -S I ZE1 

DEF KEY (10) =C0NT1 

CONSOLE S. 0,24 : CONSOLE C80 


UN COMPOSEUR 
TELEPHONIQÜ 



Aujourd’hui, nous allons utiliser le MZ 80B comme un 
composeur téléphonique. Ce petit montage nécessite 
que vous possédiez une carte 1/02 et un téléphone à 
touches. 


Etant donné que vous ne touchez 
pas à la ligne, ce composeur télé- 
phonique est «agréé P.T.T. »... 
Amusez-vous bien. 

PROGRAMMATION 
INTERFACE 1/02 
TELEPHONE 

1. PRINCIPE 

L’enfoncement d’une touche du 
clavier téléphonique est simulé par 
la fermeture d’un contact corres- 


pondant. Ce contact se ferme à 
l’excitation d’un électro aimant. Un 
code de cet électro aimant est au 
+5V, l’autre côté arrive sur une, 
sortie collecteur ouvert d’un 7406. 
Une seule touche sur le clavier té- 
léphonique doit être enfoncée à la 
fois, donc, un seul relais à la fois 
sera excité. Un canal ne compor- 
tant que 8 bits, nous avons été 
amené à implanter les sorties 
comme suit : 

Canal 14 010 Touche 0 255-1 = 254 

011 1 255-2 = 253 


Canal 15 


012 

2 

255-4 

= 251 

013 

3 

255-8 

= 247 

014 

4 

255-16 

= 239 

015 

5 

255-32 

= 223 

016 

6 

255-64 

= 191 

017 

7 

255-128 

= 127 

020 

8 

255-1 

= 254 

021 

9 

255-2 

= 253 

022 

# 

255-4 

= 251 

023 

* 

255-8 

= 247 


Dès la mise sous tension, pour per- 
mettre l’utilisation nQrmale du télé- 


phone, aucun relais ne doit être 
excité, il faudra donc programmer : 
OUT /'a) 14,255 : OUT/o) 15,255. 
(I) Et maintenant, pour exciter un 
relais (correspondant à l’enfonce- 
ment d’une touche clavier télé- 


phone), il suffit de faire le complé- 
ment à 255 du poids de la touche. 39 


HZ 80 B 


2. EXPLICATION 

Je veux composer le chiffre 3 sur 
le clavièr par programmation, je 
devrais mettre OUT/o> 14,247 

le chiffre 3 est sur le canal 14 
le chiffre 3 correspond à 255-8=247 

Attention : 

Lorsque nous appuyons sur une 
touche du clavier, nous enlevons 
le doigt «un certain temps après». 
Cette notion de temps peut être 
défini par une touche d’attente du 
style FORX = 1 TO 50 : NEXTX et 
pour relever le doigt, il faut dé- 
sexciter le relais donc faire 
OCIT/'S) 14,255. 

3. EXEMPLE 

1 0 OüT/2> 1 4,255 : OUT /S> 1 5 ,255 
Je désexcite tous mes relais 

20 OÜT/S> 14,247 
J’appuie sur la touche 3 

30 FORX = 1 TO 50 : NEXTX 
Je garde le doigt sur la touche 

40 OCIT/'S) 14,255 
Je relève mon doigt 
J’ai appuyé sur la touche 3 du cla- 
vier 

4. ATTENTION 

Je ne peux composer que lorsque 
le combiné est décroché, il suffit 
donc de tester le bit 0 (110) du 
canal 14 pour savoir si oui ou non 
cela est fait (led du clavier allumé). 

10 INP/£> 14, A 

Je teste si mon combiné est dé- 
croché 

20 1F A = 0 GOTO 10 

S’il n’est pas décroché, je retourne 

en 10 

30 « DEBUT COMPO » 

J’ai décroché, je viens en 30 

5. MODIFICATIONS SUR 1T/02 
(pour la connection avec télé- 
phone 

1 . Réunir 1 1 1 à 1 17 au GND (prévu 
sur la plaque). 

2. Remplacer IC 14, 15, 16, 17 

(7404) placés sur support par 
des 7406 (collecteur ouvert). 

3. Placer les switches 1, 2, 3 sur 
OFF et 4, 5, 6, 7 sur ON 

Ce qui donne 

au canal 1 1/010 à 17 l’adresse 14, 
au canal 2 1/020 à 27 l’adresse 15. 

4. Les instructions BASIC 

OUT /S) 14, X OUT/-S) 15, X 

40 de sortie 


INP/o) 14,X INPX3>15,Y 
d’entrée 

peuvent maintenant fonctionner. 

5. ATTENTION : 

Avant d’amener le +5V sur 027, ne 
pas oublier de couper la sortie 8 
du circuit IC17 puis seulement 


réunir 027 au +5V de façon à 
l’amener sur le commun des relais 
de l’interface téléphone. 

*** NB : Pour toutes ces modifica- 
tions, se reporter au schéma tech- 
nique 1. 


Jean NERON 
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ASTEROÏDES 

TENTES DE TRAVERSER L’ECRAN EN EVITANT DES OBSTACLES EN TOUS GENRES. U JOUEUR' 

CELTEETrP JEU 1 C0NM S flZ; "CELUI "QUI "PREND "la* DERNIERE "ALLlÎMÉTfE "a >e"rd‘u." "l "jü'ue'ur" CONTRE V: " 

ALUNISSAGE. 

UNE DES MEILLEURES EXPLOITATION GRAPHIQUE DE HZ; DEMANDE BEAUCOUP DE SANS-FROID 

AUTO CROSS 

FAIRE UN CIRCUIT EN UN NININUM DE TEMPS EN EVITANT TOUS LES OBSTACLES (6RAPH 4 SON.) 

ANAGRAM . . . 

DENOMBRE LES PERMUTATIONS POSSIBLES D’UN MOT QUELCONQUE ET LES AFFICHE. 

ANNONCES BRIDGE 

INDIQUE DANS LA MAJEURE CINSUIEMEiL’ OUVERTURE D’ ANNONCE! MAIN ALEATOIRE OU INDIQUEE. 

BOWLING 

TRES GRAPHIQUE! AFFICHE LES SCORES ET LES QUILLES COMME DANS LA REALITE. (8 JOUEURS MAXI. > 

BLOCK K U S U S H I 

MUR DE BRIQUE TRES DIFFICILE A BATTRE; EN ASSEMBLEUR; 3 NIVEAUX 

BOGGLE 

VARIANTE GRAPHIQUE DU 'MOT LE PLUS LONG’ ; JUSQU’A 9 JOUEURS. 

BLACK JACK 

PASSIONNANT JEU DE CARTES CONTRE HZ. UTILISE TOUTES LES POSSIBILITES GRAPH 4 SON DU MZ 

BOMBARDIER 

ENTRAINEZ VOUS SANS DANGER A LA DESTRUCTION DES BASES ENEMMIES 

BOURSE - 

SPECULEZ SANS RISQUER LE SUICIDE EN CAS DE CRASH GENERAL 1 

COURSE DE VOITURE 

ROUTE ALEATOIRE; 3 NIVEAUX DE VISIBILITE; 5 LARGEURS DE ROUTE (1 JOUEUR! 

COLD I TZ 

JEU DE SITUATION CONVERSATIONNEL EN AN6LAIS:EVASION MOUVEMENTEE DE LA FORTERESSE DE COLDITZ. 

CHASSE 

ATTRAPPER LE FAUVE ECHAPPE; LE PLUS RAPIDEMENT POSSIBLE 

CARRE MAGIQUE 

MZ TROUVE TOUT CARRE MAGIQUE D’UNE TAILLE MAXIMUM DE 9 * 9 NOMBRES 

CHATEAU DRAGON 

AFFRONTEZ DE NOMBREUX PERILS POUR TROUVER UN TRESOR FABULEUX (MONSTRES SUPERBES). 
CORRIDA 

ruH'MCfti i 

TRAVERSEZ LE DESERT* EN "me'na'ge'aNT "vo'tr'e "mo"nMe "et" EN "EVlfAlÏT "LES "p ÎLLARDS ." 

CAPTORAK SPATIAL 

JEU DE REFLEXION CONTRE MZ GRAPHIQUE ET SONORE 

ECHECS MZ 50 

BONNES PARTIES AU NIVEAU 5 CONTRE JOUEUR MOYEN; AFFICHE LES COUPS; GRAPHIQUE REUSSI. 

ECHECS SARGON 2.5 

LE MEILLEUR PROGRAMME D’ECHECS SUR ORDINATEUR MAIS IL FAUDRA S’HABITUER AU 6RAPH DES PIECES. 

ELI SA 

MZ RESOUDRA (EN ANGLAIS! TOUS VOS PROBLEMES PSYCHOLOGIQUES EN CONVERSANT AVEC VOUS 


SE JOUE A DEUX; LE PREMIER QUI ARRIVE A IMMOBILISER SON ADVERSAIRE A GAGNE. 

JUMPING BALLL 

JEU DE REFLEXION TRES RAPIDE 


C K I 

***** 

CK3 CAI CB3 


JEU CONTRE MZ AVEC GRAPHISME DU JEU ET DES DES. 

JUNTORY GAMES 

IDEM A ’ ISOLA’ MAIS EN ASSEMBLEUR DONC BEAUCOUP PLUS RAPIDE ET MIEUX SONORISE. 

JEU DE LA VIE (B) 

TRES GRANDE RAPIDITE D’EXECUTION DU A UN SOUS PROGRAMME EN ASSEMBLEUR. 

JEU DE LA VIE (K/A) 

TRES RAPIDE 

KINGDOM 

SI VOUS DESIREZ REGNER LONGTEMPS SUR VOTRE ILE 

LABYRINTHE EN 3 DIMENSIONS. 

SORTIR D’1 LABYRINTHE DONT ON CHOISIT LES DIMENSIONS! GRAPH. 4 PASSIONNANT, 

LE MARAIS DE L'ALLIGATOR.. 

CUEILLIR LES NOIX DE COCO SANS SE FAIRE MANGER PAR L’ALLIGATOR; GRAPH 4 SONS TRES REUSSIS 

LE VOLEUR 

VOUS ETES LE VOLEUR ET DEVEZ RAMASSER LE MAXIMUM DE DIAMANTS EN EVITANT LES CHIENS. 

LE CHATEAU HANTE 

JEU DE SITUATION TRES COMPLET; PEUT DURER PLUSIEURS HEURES '; LIVRE AVEC NOTICE... 

LA BOITE A ATOMES 

JEU DE REFLEXION; TRES DIFFICILE A BATTRE AU NIVEAU 9; GRAPHIQUE. 

LAS VEGAS 

FIDELE RECONSTITUTION D’UNE MACHINE A SOUSiTRES BEAUX 6RAPHS.;l/2 BASIC-1/2 ASSEMBLEUR 
LIFE 


LE CELEBRE JEU DE LA VIE; TRES RAPIDE MAIS PEU COMMODE POUR CREER LA GENERATION No 1 

LE COMPTE EST BON 

TROUVE 'PRESQUE' TOUJOURS LA SOLUTION EN MOINS DE 30 SECONDES. 

MUR DE BRIQUE 

JEU D’ADRESSE! GRAPHIQUE; NIVEAU MOYEN. 

MORPION 

ALLI6NER 5 CROIX DANS UNE GRILLE 10 t 10; MZ LENT (30 sec.) MAIS TRES FORT. 

MISSILES 

TENTER D’ATTEINDRE 10 CIBLES SUR GRILLE DE 10110 AVEC INDICATIONS A CHAQUE COUP TIRE. 

MINEUR 

VOUS CHERCHEZ DE L’OR DANS UNE MINE ET DEVEZ AFFRONTER MOULTE OBSTACLES; BEAU 6RAPH. 

MAISON MYSTERIEUSE 

MEFIEZ VOUS DE CETTE MAISON OU VOUS ATTENDENT 1000 PERIPETIES OU. ..LA MORT' 

MOON SURVIVAL 

EXCELLENT PROGRAMME SE SITUATION ...SUR LA LUNE. 

MOSAÏQUE 

RECONSTITUEZ UNE FIGURE DONT LES ELEMENTS ONT ETE MELANGES PAR HZ (CRISE DE NERF GARANTIE! 

MZ-LUDO 

LE JEU DES PETITS CHEVAUX A 2 OU SEUL CONTRE LE MZ 

MAISON ENCHANTE 

UN JEU DE SITUATION FRANÇAIS ET NON-VIOLENT QUI SEMBLE UN PEU INSPIRE DE L.CAROLL 

OTHELLO 1 

NIVEAU MOYEN. GRAPHIQUE. 

OTHELLO 2 , 

MOINS GRAPHIQUE MAIS BEAUCOUP PLUS FORT QU’ OTHELLO 1. 

OBSTACLES 

TRAVERSER L’ECRAN EN EVITANT UNE MULTITUDE D’OBSTACLES. PROG. EN BASIC ET ASSEMBLEUR. 
POKER 


BEAU GRAPHISME DES CARTES. NIVEAU MOYEN. 

PRISONNIERS 

MZ TENTE DE SORTIR D’UN LABYRINTHE DONT VOUS AUREZ CHOISI LA DIFFICULTE; TRES DEMONSTRATIF. 

PAPER STONE 

JEU DU PAPTER-PIERRE-CISEAUX... EROTIQUE.. 

POULES ET RENARD 

IL FAUDRA BEAUCOUP DE RUSE AU RENARD (VOUS) POUR ECHAPPER AU RENARD (MZ) SUR UN DAMIER. 
PUISSANCE 4 

JEU DE DEDUCTION CONTRE" MZ;* DIFFÎCÎLÊ À BaMe'ia’u "de’bÛT .".."! ;" JOLI "GRAPHISME." 

PACMAN 

N’ALLEZ PLUS AU CAFE 

RUBICUBE 

PROBLEMES PROGRESSIFS AVEC GRAPHIQUE DE TOUTES LES FACES DU CUBE. !1 (BON) JOUEUR) 

RAIL 


PAS FACILE ET PASSIONNANT DE FAIRE TRAVERSER LA LOCOMOTIVE EN COMMANDANT LES AIGUILLAGES. 

RHINOCEROS 

IL FAUT VOUS SAUVER DE LA FORET AVANT QUE LE RHINOCEROS NE VOUS ATTRAPPE (GRAPH) 

RETOURNE 

VERSION SPECIALE MZ D'UN JEU TRES CONNU! DEMANDE BEAUCOUP DE MEMOIRE VISUELLE. GRAPHIQUE 

ROULETTE 

L’ENFER DU JEU A LA MAISON. 

SPACE FIGHTER 

JEU DE REFLEXION ET D’ADRESSE. RAPIDE; GRAPHIQUE; SONORE 

STAMP OUT 

JEU D’ADRESSE! ATTRAPER LE MAXIMUM D’ETOILES EN EVITANT DE t EN t D’OBSTACLES, U JOUEUR) 

ST ARTRËCK 

CELEBRE JEU DE GUERRE SPATIALE; UTILISE TOUTES LES POSSIBILITES GRAPHIQUES 4 SONORES DU MZ. 

SOUS MARIN 

VOTRE SONAR VOUS AIDERA A COULER DES NAVIRES SUR UNE GRILLE DE DIMENSIONS VARIABLES. 

SUPER MASTERM I ND 

COMBINAISONS DE 3; 415 OU 6 CHIFFRES. 1 JOUEUR CONTRE MZ OU 2 JOUEURS. 


LunuiflHoufJü uc oît»*} uu o LmrrKcs, î judcuk uminc ni uu i juucuro. 

SUPER LOGOTRON 

CREATION MZ’ESQUE D’UN NOMBRE INFINI DE MOTS AVEC LA SIGNIFICATION DE LEUR RACINE. 

SAUVETAGE 

VOUS DEVEZ ATTRAPER LE MAXIMUM DE PERSONNES QUI SAUTENT D’I IMMEUBLE EN FEU. (GRAPH 4 SON) 

STRIP-TEASE 

AU DEBUT DU JEUi LA JEUNE FILLE EST HABILLEE; LA SUITE VOUS COUTERA 6 POINTS.. 

SPACE INVADER 

TRES BEL EXEMPLE DE PROGRAMMATION EN LANGAGE MACHINE 

TOURS DE HANOI 

JEU DE ( GRANDE ) PATIENCE CHINOIS; DEMANDE BEAUCOUP, DE REFLEXION. (1 JOUEUR) 

TELECRAN . 

CREATION DE DESSINS SUR L’ECRAN AVEC LA FONCTION ’ SET’ (JEU POUR ENFANT). 

TELECRAN MEMOIRE . 

IDEM A TELECRAN MAIS AVEC CARACTERES NORMAUX ET MEMORISATION DE PLUSIEURS PAGES DE DESSIN. 

TOUR INFERNALE 

UNE TOUR EN FLAMMES.. ET VOUS DEDANS; PAS FACILE DE S’EN SORTIR, BEAU PR0G.;6RAPH 4 SON. 

T I ERCE 

VOUS MISEZiMZ VOUS DONNE LES COTES; VOUS FAIT ASSISTER A LA COURSEîET DISTRIBUE LES SAINS. 

TRUCKER 

RELIER LA COTE OUEST A LA COTE EST DES U. S. A. AVEC VOTRE 38 TONNES • e n Anglais". 


-BASIC*- -i 

-i^ïEL- 
ii^îgï- 
■-I&ÏÊÏ- ■ 

4K/oct. J 
VM 5060 -, 

-É^ï£ï- 

5K/oc t . J 
MACHINE -, 

VM K 4o60" -, 
-ba4ic-"Î 

25K/oc t . J 
VM 5060 t 
6K/oct . J 
VM 5060 -i 
lOK/oct . J 
VM 5060 -i 
6K/oc t . J 


-BASIC- -, 
BK/oct . J 
VM 5060 -, 
2 lK/oct . J 
VM 5060 -i 
7K/oct , J 
VM 5060 -i 
1 5K/oc t . J 
-BASIC- -, 


MACHINE 

5K/oct . 
VM 5060 
3K/oct . 
MACHINE 
BK/oct. 

-baSic- 

8 K / o c t . 
VM 5060 

mac^tne" 

VM K 4o60" 


VM 5060 
3 K 7 o c t . 
VM 5060 
BK/oct. 
-BASIC— 
5K/oc t . 
VM 5060 
8K /oc t . 
SUP. BAS 
1 2K/oc t . 
VM 5060 
1 5 K / o c t . 
VM 5060 
7K/oc t . 
VM 5060 


VM 5060 

4 K / oc t . 

-baSic- 

6K/oc t . 

VM 5060 

VM K 4o60" 

VM K 4o60" 

6 K / o c t . 
VM 5060 
6K/oc t . 
VM 5060 
4 8 K / o c t . 

-baSic- 

1 6 K / o c t . 

-baSic- 

9K/oc t . 
MACHINE 
1 6K/oc t . 
-BAS I C- 
4K/oc t . 
-BAS I C — 
3K/oct . 

-baSic- 

6K/oct . 
MACHINE 
1 OK /oc t . 
VM 5060 

2 7 K / o c t . 




ALPHABET GOTHIQUE 

VOUS POURREZ AFFICHER iES MOTS DEMANDES EN GOTHIQUE H. R, MAJUSCULE OU 

DEMO H. R 

COURTE MAIS SAISISSANTE DEMO DE HAUTE RESOLUTION ( GRAPH 1 1 

FIGHTER 

ABATTRE LE MAXIMUM D’AVIONS QUI TRAVERSENT '.'ECRAN. CARTES GRAPH, 1 E 

FANCY CLOCK 

LE SUMMUM DE L'HORLOGE MURAlE NUMERIQUE ET A A I GU L LE 5. >6RARh l . . 

GRAPHISMES 

S GRAPHISMES DIFFERENTS: cocon 

HORLOGE MURALE 

H0RLD6E A AFFICHAGE ANALOGIQUE V NUMERIQUE SULTANE 

LAS VAGAS-B 

IDEM ’tAS VEGAS-» 'Avec GRAPH h. S, SAISISSANTS . 5 s AF- r . 

LABYRINTHE 3 DIM 

TRES BEL. E VERSION »OUR r t. PASSIONNANTE; BEAU» SRAFWS •SRF*! 

NAUFRAGES 

VOUS DEVEZ RECUPERER lES NAUFRAGES AvEC -OS BO.'EES: 'R'GINAu ET EN n,R 
OTHELLO H. R 


POUSSE-POUSSE . . . 
RER.IQUE D. ZE.EBRE JEv DE Pt’I 

PENDU H. R 

vcos aurez un berl =end: en 


CB 3 

******* 

C B 3 

***** 

C B 3 

**** 

C B 3 

******* 

C B 3 

****** 

C B 3 

* * * * 

C B 3 

******** 

C B 3 

******** 

C D 3 

****** 

E B 3 

******** 

C B 3 

******** 

C B 3 

****** 


- BAS I C - 
6 4 K / o c t . 
-BAS I C- 

3K/oc t . 

- BAS I C - 

6 R / 0 C t . 

- B AS I C - 

1 2 K / o c t . 
-BAS I C - 
4K/oct . 
-BASIC- 

40K/OC t . 

- BAS IC- 
6 4 K / o C t . 

BAC IC- 

40K/oct . 
-BAS I C- 
40K /oct . 
-BASIC- 
1 OK /oc t . 



PETALES DE VIE r C B 3 

ASTROLOGUE «■ ASTRONOME: HZ VOUS PREDIRA l' AVENIR SUR 1 AN AVEC UN TRES BEAU SRAPH (SRI* L ******* 

LES REGLES SONT CONNUES; LE PROGRAMME EST TRES BIEN FAIT; LE JEU EST PASSIONNANT. L ******** 

ROSACE r C B 3 

CREATION D’1 VITRAIL POUR St. SHARP; CHAPELLE DE’ AIMEZED’ ; LIEU DIT ’ QUATREV I N6TBE ' 16PH 1) L ****** 

SPACE ODYSSEY r CB3 

JEU GRAPHIQUE H.R. PASSIONNANT SI L'ON EST HABILE ET PATIENT. BEAUX 6RAPHS. (GRAPH 1). L ******** 

EXCELLENTE SIMULATION EN TEMPS REEL + GRAPH DU TERRAIN D'ATERRISSAGE ET DE SES OBSTACLES L ********* 

TENNIS r CB3 

1 BALLE; 2 RAQUETTES; 1 OU 2 JOUEURS... L »»** 

V. R. P r C B 3 

PAS FACILE DE TROUVER LE PLUS COURT CHEMIN POUR RELIER S VILLES DE FRANCE L ****** 

ASSEMBLEUR 80 B / K7. . ... r CB3 

4 PROGRAMMES POUR PROGRAMMER EN ASSEMBLEUR SUR K7 (Voir notice bulletin No. 2) L ******** 

BAS I CO I S r C K 3 

BASIC EN FRANÇAIS POUR BASIC 5010 ET 5025 L *** 

VOUS PERMET DE RECOPIER TOUT PROGRAMME ECRIT EN ASSEMBLEUR. L ****** 

C.A.O. DESSIN GRAPH r C K 3 

AIDE A LA CREATION DE DESSINS ET INSERTION AUTOMATIQUE DANS UN PROGRAMME L **** 

CALCUL. EMPRUNT r C K 3 

COMME SON NOM L’INDIQUE ... L **** 

DESASSEMBLEUR... r CK3CA3CB3 

PERMET DE TRADUIRE; EN CLAIR; TOUTES LES INSTRUCTIONS Z 80 CONTENUES DANS UN PROG. MACHINE L ******* 

DESASSEMBLEUR MACHINE... r CK3EA3 

DESASSEMBLEUR EN LANG. MAC-HINEïECRAN OU IMPRIMANTE; '5 FOIS + RAPIDE MAIS NON MODIFIABLE L ******* 

DUMP DISK 6015 . . r C K 3 

VOUS ALLEZ ENFIN POUVOIR EXPLORER CES SUPPORT MAGNETIQUES TANT PROTEGES L ******* 

GRILLES r C B 3 

AIDE A LA CREATION DE DESSINS GRAPHIQUES L ******* 

KOK AN. SUPER BASIC 2 r CK 3 

VOIR No. 1 POUR EXPLICATIONS ST CE No. POUR COMPLEMENT D' INFORMATIONS. L ********** 

MODIFS 502 5 r CK3 

MODIFIE ET AMELIORE LES POSSIBILITES DU SP 5025. VOIR ARTICLE BULLETIN No, 2 *- **** 

MINI T E X T r C B 3 

TRAITEMENT DE TEXTE SIMPLIFIE MAIS AMPLEMENT SUFFISANT POUR DE PETITS TRAVAUX, L ****** 

UN UTILITAIRE QUI FACILITERA LA CREATION DE VOS GRAPHISMES H. R, (RRAPH1 ' . L ****** 

PENSE BETE r C K 3 

INTERONPT VOTRE TRAVAIL EN BASIC APRES UN TEMPS DONNE (SONNERIE ET CLIGNOTEMENT DE L’ECRAN! L ***** 

PERMET LA RENUMEROTAT ION DES LIGNES D’UN PROG.! SANS MODIFIER LES GOTO; 6QSUB; ETC... L **** 

REPRO K7 r CK3CA3CB3 

POUR LIRE LES V D’UN MI SUR N’IMPORTE QUEL AUTRE MZ (A PRECISER A LA COMMANDE). >- **** 

ÎMPL. EN COOOiMEME POSSIBILITE QUE DEBUGGER (SAUF °t D’ARRET) PLUS RECHERCHE D’UNE SEQUENCE L ****** 


-BASIC 

1 2K/oc t 
-BASIC 

6 4 K / o c t 


■il* 


{-' t '-4 ' 


X L t - 1 1 I' (I 


X S 


Wfh .rp. rfjv rffV ilfh <1% /p. /|a rffU 


MACHINE -, 

-ba4ic-"Ï 
2K/oct . 1 
MACHINE ^ 

ièeplïT 

VM 5060 i 
5K/oct . J 
VM 5060 -i 

ASËXiïSl- 

-|g4ïET- 

1 1 K/oc t . J 
-BASIC- -i 
j 4 K / o c t . J 
CH I NE -i 

sAïfii- 


MACHINE . 
1 8K/oc t . J 
MACHINE i 
1 K/oc t . i 
-BASIC- -, 
64K/oct . J 
-BASIC- -i 
5K/oct . -* 
-BASIC- -i 
2K/oct . 1 
-BASIC- n 
3 K / o c t . J 
-BASIC- -i 
3 K / o c t . J 
MACHINE -i 
4K/oct . J 


X-'l 5 * 1 ::L I. QX. 


T " F-' 1. | 


ACCORDEON. . r ÇK3CA3CB3 

’LE VOL DES HIRONDELLES’! UN P’TIT AIR D’MUSETTE, L ***„,,.„., 

2 EXTRAITS DES SUITES POUR VIOLONCELLE (SYNTHETIQUE! L **** 

PERMET UNE RECOPIE D’ECRAN BASSE OU HAUTE RESOLUTION SUR IMPRIMANTE EN GRAND FORMAT. L ****** 

PERMET DE JOUER LES 3 GAMMES DIRECTEMENT AU CLAVIER; LES NOTES APPARAISSENT SUR UNE PORTEE L - ***** 

MUS IC 4..... - r CK3CA3CB3 

MZ CREE UNE MUSIQUE ALEATOIRE MAIS REPONDANT ftijj REGLES DE LA COMPOSITION. L **** 

FIDELE REPRODUCTION DE 'LA JOCONDE’ SUR IMPRIMANTE P5 

MUSIQUE SUISSE .....r ÇK3ÇA3CB3 

4 MINUTES DE TRES BELLE MUSIQUE. L ***** 


-BASIC- -i 
4 K / o c t . J 
-BASIC- 


-1%' 


IC- 


] 


VM 5060 -i 
5K/oc t . -* 
-BASIC- -i 
1 5K/oct . J 
-BASIC- -i 
8K/oct . J 


E B 3 


AJUST . COURBES r 

POUR CREER UNE COURBE AJUSTEE EN FONCTION DES PARAMETRES FOURNIS L * * * * * * 

SIMULATION DE TOUTES "LES "fo'nCT fONS "CHflfNE DU "LANGAGE \ .*S ."e ." "lf SOl's-’pROGRÂHMES' .* ^ ****** 

PROGRAMME D’E.A.O. QUI ENTRAINE LES JEUNES ENFANTS AU CALCUL ET A LA DICTEE, L ******* 

DERIVEES , r ÇK3CA3CB3 

DONNE LES DERIVEES SUCCESSIVES D’UN POLYNOME. 

DENOMBREMENTS r CK3CA3EB3 

CALCULS DE DENOMBREMENTS : COMBINAISONS: PERMUTATIONS; SIMPLIFICATIONS; ETC.. L *»****„, 

EQUATIONS r ÇK3ÇA3CB3 

RESOLUTIONJI^QUATIONS PAR METHODE DU PIVOT ^ * * * * * 

M^DE^umfe^m|T^VEf TABLATURE DES ACCORDS " ‘ " ^ ******** 

TRACE DE COURBES SUR TABLE TRAÇANTE NATANABE." ***** 

SANS COMMENTAIRES.. L 

ENTRAINEMENT A LA LECTURE POUR ENFANTS DE COURS MOYEN. L *****$,-«-, 

AIDE A LA LECTURE POUR ENFANTS DE COURS ELEMENTAIRE ET MOYEN. 

TRAITE EN NULTIPRECISION ADDITION L **** 

GESTION DES NOTES O’UNE CLASSE AVEC TABLEAUX ET HISTOGRAMMES L *******„, 

MULTIPUZZLE . . . r CK3CA3CB3 

UNE MULTIPLICATION COMPLEXE EST POSEE: IL SUFFIT DE RETROUVER LES CHIFFRES QUI LA COMPOSE 1 L * ** ** 

ETUDE DU TRIANGLE DE PASCAL JUSQU’A L’ORDRE 46 (SATURATION) L **** 

MZ CREE! A LA DEMANDE; TOUTES SORTES DE POLYGONES EN H.R. (6RAPH1) . L * * * * 

PH - . . . r C B 3 

COURBE DONNANT L’EXPRESSION D’ACIDITE OU DE BASICITE D’UNE SOLUTION. (GPAPH1) L ****** r r, -, 

RESOLUTION EQUATIONS r CK3CA3CB3 

EQUATIONS 1er.; 2ete.: 3e«e. DE6RE + 3 EQUATIONS A 3 INCONNUES. L **** nr o-, 

RACINES POLYNOME r CK3ÇA3CB3 

RECHERCHE DES RACINES D’UN POLYNOME. . . (BIEN SUR! L * * * * , 

^MFTVAfpUrUNfEXTÊPAR COEUR. C **Ü* 1 ' 

lï T ^W^ rpMi:L&&{fc ' Lft:&r c **** 

WIALYSe" ÜiSoNNEES "sf Af . ÉXCELLENfs "gRAPHI’qÛES. .....[ ******* 

SEIKOPOLY r t K 3 

TRACE DE FONCTIONS POLYNOMES SUR IMPRIMANTE SEIKOSHA. L ***** 

TIRS BALISTIQUES r ÇK3 

TRAJECTOIRE D’UN OBUS SUR TABLE TRAÇANTE L **** 

PH ACID/BAS r £K3 

• COURBE DES ?H SUR TABLE TRAÇANTE NATANABE. L ***** 

.O X V ERS _ 

ANNUAIRE 'MICRO SYSTEMES’ r E£2£Ô2£ B3 

TOUS LES ARTICLES DE ’HICRO SYSTEMES’ REFERENCES PAR NUMERO ET PAR THEMES. L *******„ 

ANNUAIRE 'ORDINATEUR INDIVIDUEL' r CK3ÇA3CB3 

IDEM A ANNUAIRE ’ MICRO SYSTEMES’ L ******* 

SDF6SDF L * * * * 

ESC AL IER r CK3CA3CB3 

M.Z. ETUDIE ET CALCULE POUR VOUS LE MEILLEUR ESCALIER D’APRES UNE PENTE DONNEE. L ***** _ „ , 

POUR FANA DE CINE. FICHIER FILMS l SALLES; RECH. PAR CATE60RIES;REALISAT . ; ANîPAYSî fiCTEURS. L ******** 

R.L.C. SERIE ET PARALLELE... r CK3CA3CB3 

t u cmc LE/v c t Dft f ’ U^ CONDENSATEUR; D’UNE RESISTANCE; D’UNE SELF DANS UN CIRCUIT. L *** 

POUR I NI TI ES .. ÔUEL AVENIR’ VOUS "RESERVENT "LES "PLANETES SELON VOS DATE'et" LIeVde" NAISSANCE " C ******** 

TABLE TRAÇANTE r CK3CB3 

PLUSIEURS PROG. DE DEMO SUR T. T ’ NATANABE' . NOUS CONTACTER POUR PLUS AMPLES INFOS. L 


- BAS I C - > r 
6 4 K /oc t . 3 
-BASIC- t 
OK/oct . J 
VM 5060 t 
30K/oct . J 
-BASIC- 
3K/oct . 1 
-BASIC- i 

■‘•2 K 68S6- 

'?çt. J 




< /oc t . J 
A5 IC- n 
< /oc t . 3 
vn 5060 -i 

ÎN K 68IS- 

64K/OC t . 3 


-BASIC- i 

-|g6ï£ï- 

3K/oc t . J 
-BASIC- t 

HSéïEï- 

3K/oc t . J 
VM 5060 t 
3K/oc t . J 
-BASIC- -, 
25K/oc t . J 
-BASIC- -i 
4 K / o C t . 1 
] 
3 
3 


12K L 


et. 


1 lK/oct 
-BAS I C — 

-lUï & 3 

15K/oct. J 


48K/oct . J 
VM 5060 -i 
48K/oct . J 
-BASIC- i 
4K/oc t . J 
VM 5060 


3 
3 

,3 

64K/ÔC t . ^ 
-BASIC- -i 
OK/oct. J 


VM 5060 
48K/oct 
-BAS I C — 
3K/oc t 


’OYAGE DANS LA PERFECTION 



avenue Jean-Jaurès 93307 AU8ERVILLIERS CEDEX 
Téléphone ; 834 93 44 ~ Télex : 212174F 





UNE 

AFFAIRE 

CLÜB 


o\ W.^ 




(a) 34 paniers d’interface MZ80 I/O pour MZ 80K au prix exceptionnel 




Spécial Club 
au lieu de 


800,00 F T.T.C. 
2 168,37 F T.T.C. 





Ab) 58 masters disquettes MZ80 FMD pour MZ 80K au prix exceptionnel 


Spécial Club 
au lieu de 


200,00 F T.T.C. 
541,64 F T.T.C. 



(c) 16 imprimantes MZ80 P3 pour MZ 80K au prix exceptionnel 

Spécial Club 3 020,00 F T.T.C. 
au lieu de 8 315,94 F T.T.C. 

Le panier d’interface MZ80 1 /0 permet la connexion du MZ 80K 
à une imprimante ou à un ensemble de floppy disque en y 
insérant les cartes interfaces correspondantes. 

L’imprimante MZ80 P3 est livrée avec la carte interface qui 
permet la connexion avec le MZ 80K. 


Retourner le bon de commande ci-dessous à S. B. M/CLUB 
SHARPENTIER 151 - 153, avenue Jean Jaurès, 93307 AÜBER- 
VILLIERS. 



J? 


Prénoms 


N° adhérent 


Adresse : 


Votre commande 


au prix de 800,00 F T.T.C. 
au prix de 200,00 F T.T.C. 
au prix de 3 020,00 F T.T.C. 


Je vous joins un chèque d’un montant de libellé à 

l’ordre de SHARP BUROTYPE MACHINE. 

Je prends bonne note qu’au cas ou ma commande ne pourrait 
être honorée dans la limite des stocks disponibles mon chèque 
me sera intégralement remboursé. 




£?** ««Tl 


Date 

Signature 


45 


SOUSCRIPTION RESERVEE 

AU PROFIT DES OEUVRES SOCIALES DE LA FÉDÉRATION NATIONALE DES SAPEURS-POMPIERS DE FRANCE 






: :#Ç 


- 


■Lù 


•V*», 


■&&» 


m- 

* a. 


Dédié aux combattants du feu et 
sauveteurs gui, depuis les temps les 
plus anciens se dévouent à la protection 
des hommes, cet ouvrage est à la fois 
1* historique le plus complet des différents 
corps de sapeurs pompiers et F inventaire 
de leurs structures et moyens actuels. 

Pompiers civils et militaires, historiens, 
collectionneurs et grand public se 
passionneront pour cette grande histoire 
des Sapeurs-Pompiers de France 

Imprimé sur papier couché présenté sous 
une jaquette en couleurs pelliculée, cet 
album de luxe de 250 pages au format 
240 sur 320 mm, comportant plus de 400 
illustrations en couleurs dont vingt 
planches originales d’uniformes, 
d’équipement, de matériel, d’insignes, 
sera mis en vente en octobre 1983 au 
prix de 400 FF pour les exemplaires 
reliés pleine toile et de 800 FF pour ceux 
reliés plein cuir avec tête et tranche or. 

Une souscription, imprimée spécialement 
sur un nombre limité d’exemplaire, au 
profit des œuvres sociales de la FNSPF 
est proposée. Elle comporte : 

500 exemplaires reliés plein cuir rouge 
avec marquage spécial au fer à dorer, 
numérotés de 1 à 500, au prix spécial de 
souscription de 610 FF, dont 120 FF au 
profit des œuvres sociales. 

4 500 exemplaires reliés pleine toile 
rouge avec estampage spécial or, 
numérotés de 501 à 5 000, au prix 
spécial de souscription de 260 FF, dont 
60 FF au profit des œuvres sociales. 

Ce tirage de tête numéroté , hors- 
commerce est strictement limité à 5 000 
exemplaires et les souscriptions seront 
honorées dans l’ordre de leur arrivée et 
dans le cadre strict des quantités ci- 
dessus . Chaque exemplaire portera le 
nom du souscripteur. 


BON DE SOUSCRIPTI^ ,, 


. . . exemplaire#) reliefs) toile au prix spécial de souscription de 260 FF, dont 60 FF de participation aux œuvres sociales de la FNS 
xœu^Skfdek %VpKsod* ,rmChe ° r ' aupm Spécial de *>^ rl Ption de 610 FF, dont 120 FF de participation 
irticipation aux frais d ’en voi 35 FF par exemplaire soit : X 35 FF 

que je vous adresse, ci-joint, par ‘ chèque / . CCP / .. . mandat-lettre à l’ordre : 

SAPEURS-POMPIERS DE FRANCE / J.I.E 









— - Sommaire — 
du prochain numéro 


-toutes vos rubriques habituelles : PC 1500, PC 1251, PC 1211, MZ 80 B. MZ 80 K. 

-des nouvelles rubriques : PC 1401, MZ 700. 

- des articles inédits : PC 1500 - faites vous une mallette en bois 

- un cours sur le L.M. l re leçon. 






MZ 3500- EOS un système d’exploitation 
original et OSE. 

PC 1251 - du L.M. (enfin). 


Général - Le compte rendu du S1COB. ^ 



et beaucoup de surprises... Vous verrez! 

P. S. : Il y a dans ce sommaire une astuce. Cherchez et communiquez la nous. Le premie 
Sharpentier qui trouvera gagnera quelque chose. 


Partez à la découverte des Micro-ordinateurs avec 



DECOUVREZ 
LE 


fs m$0 


DECOUVREZ LE SHARP 



PC-1500 


Michel LHOIR 

Tome 1 Réf. : 261 - Prix : 85,00 F - parution Avril 
Tome 2 Réf. : 262 - Prix : 85,00 F - parution Mai 
Ces /ivres répondent à toutes vos questions sur le fonctionne- 
ment et les possibilités du SHARP PC-1500 


Découvrez le Sharp PC-1500, ses périphériques (magnétophone, imprimante, table 
digitale, module mémoire...) et son BASIC. 




SYBEX 


Adresse _ 
Ville 


L vimA Code Postal Ville 

Je désire recevoir □ les livres suivants : 

4, Place Félix Eboué ex. réf. — ex. réf. 

F 75583 Paris Cedex 12 Ci-joint mon règlement plus frais d'envoi. (1 livre 12,50 F - 2 à 4 livres 21 F - 5 à 8 : 25 F) 


4 / 



devenez 

siiarpenum 

• Accéder à la bibliothèque de programmes. 

• Etre informé sur les diverses possibilités de la machine. 

• Echanger vos programmes personnels contre ceux des autres membres du club. 

• Recevoir un bulletin périodique vous informant de la vie du club et de la 
société Sharp. 

A lire attentivement! 

. Vous êtes nouveau, vous voulez vous inscrire au Club. Il vous suffit de nous envoyer le bon 
ci-dessous accompagné d’un chèque de 50 F à l’ordre du “Club des Sharpentiers” - CCP 548560 S 
Paris. Vous bénéficierez de tous les avantages du club et, pour la première année d’inscription, nous 
vous offrons deux exemplaires du Bulletin des Sharpentiers. Si vous voulez continuer à le lire par la 
suite, il vous faudra vous abonner auprès des Editions Adepte. Mais, attention, seuls les adhérents 
du Club ont la possibilité de s’abonner, aussi indiquez bien votre numéro d’adhésion sur votre 
demande d’abonnement. 

■ Vous recevez déjà le Bulletin des Sharpentiers parce que vous êtes un ancien Sharpentier, le Bulletin 
N° 6 est le deuxième que vous recevez et si vous désirez recevoir les exemplaires suivants, abonnez- 
vous, toujours en précisant votre numéro d’adhésion au Club. 

NB : Vous, qui vous êtes inscrits au Club courant 83, êtes inscrits jusqu’à fin 84. 

La réinscription au club pour 84 se fait entre le 1 er Janvier et le 15 Février. 

L’inscription au Club : 50 F. 

Vous recevrez votre carte d’identité Sharp. Elle vous sera demandée pour accéder à la bibliothèque de 

programmes ou pour échanger les programmes avec les membres du Club. 

■ Votre inscription au Club vous donne droit à deux exemplaires gratuits du Bulletin du Sharpentier au 
terme duquel vous pourrez souscrire un abonnement pour 4 parutions au prix de 70 F en adressant 
votre demande à : 

Editions Adepte - 24, rue Marc Seguin - 75018 Paris. 




Je désire un abonnement au Bulletin du Sharpen- 
tier pour 4 parutions à l’adresse indiquée ci- 
dessous : 

Bon et chèque, mandat postal ou CCP à retourner à : 
Editions Adepte - 24, rue Marc Seguin - 78018 Paris. 


Nom Prénom 

Rue 

Code postal Ville 

N° d’adhérant au Club du Sharpentier . 
Tarif : 70 F. 


.N° 


BUL LE Tl N D 'INSCRIPTION AU CLUB SH A RPENTIER 
à retourner à SBM (Sharpentier) 151-153 Av. Jean-Jaurès 
93307 A UBER VI LL IERS Cedex 


Nom 

Adresse : 

Code postal L 
Profession 
Utilisation : _ 


Prénom 


I I 1 L 


J Ville 
- Age 


Commerçant chez qui la machine a été achetée : 
Type de machine 


N° de la machine : 

Je vous joins un chèque de 50 F 
N° Banque 

Date : 


Signature 


